Написать программу поиска первой запятой в тексте- Pascal(Паскаль)

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