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