Найдите номер первой и последней запятой в предложении…

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