Найдите номер первой и последней запятой в предложении, которое вводится с клавиатуры. (Запятых может быть от 0 до бесконечности.. ) помогите, пожалуйста

Var a.t.i:integer; s:string;
begin
readln(s); a:=0;
for i:=1 ti length(s) do
if s[i]=, then begin
inc(a); t:=i;
if a=1 then writeln(Первая: ,t); end;
writeln(Последняя: ,t);
readln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.