Дано натуральное число

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. Только я тут испугался аж: все правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся