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

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