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