Дан текст, в котором есть хотя бы одна запятая. Определить порядковый номер последней запятой — Pascal(Паскаль)

var
  s:string;
  k,i:integer;
begin
 readln(s);
 for i:=1 to length(s) do
  if s[i]=',' then
  k:=i;
  writeln(k);
end.