Дано натуральное число. определить какое из цифр в этом числе чаще 0 или 9

Var s: string;     i, z, n, a: integer; begin      readln(a);      s := floattostr(a);      for i := 1 to length(s) do      begin          if (s[i] = '0') then inc(z);          if (s[i] = '9') then inc(n);      end;      writeln(z, ' ', n);      if (z > n) then writeln('"0" > "9"');      if (z < n) then writeln('"0" < "9"');      if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')         else if (z = n) then writeln('"0" = "9" = ', z); end. Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)