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

{Программа на Free Pascal}Var st: string; z,p,i: integer; beginz: =0; readln (st); {Считываем строку}read (p); {Считываем позию}for i: =p to length (st) do if (st[i]=',') then inc (z); {Пробегаемся по строке с позиции p и ищем, }writeln (z); {Выводим кол-во найденых запятых}end.