Помогите решить: дано натур число, определить, какая цифра встречается в нем чаще: 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.