помогите решить: дано натур число,определить,какая цифра встречается в нем почаще:0 либо

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 lt; n then write('Цифра 9 встречается чаще числа 0') else
     if z gt; n then write('Цифра 0 встречается почаще цифры 9') else
     if (z = 0) and (n = 0) then write('Числа 0 и 9 не находятся в данном числе');
end.