дано натуральное число. определить какое из цифр в этом числе чаще 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      if ((z = 0) and (n = 0)) then writeln("0" = "9" = 0!)
        else if (z = n) then writeln("0" = "9" = , z);
end.

Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)