написать программу, каторая выделит все запятые из строки st начиная с позиции р

{Программа на Free Pascal}

Var st:string;

z, p, i:integer;

begin

z:=0;

readln (st) ; {Считываем строку}

read (p) ; {Считываем позию}

for i:=p to length (st) do if (st[i] = ',') then inc (z) ; {Пробегаемся по строке с позиции p и ищем,}

writeln (z) ; {Выводим кол-во найденых запятых}

end.