Решить: дано натур число,определить,какая цифра встречается в нем чаще: 0 или 9? (через string)

Var m, z, n, l, i: integer;
s: string;
begin
     readln (m);
     str (m, s);
     l := length (s);
     z := 0;
     n := 0;
     for i := 1 to l do
     if s[i] = '0' then inc(z) else if s[i] = '9' then inc(n);
     if z < n then write('Цифра 9 встречается чаще цифры 0') else
     if z > n then write('Цифра 0 встречается чаще цифры 9') else
     if (z = 0) and (n = 0) then write('Цифры 0 и 9 не присутствуют в данном числе');
end.