Дано натуральное число. Найти какая цифра встречается почаще: 0 или 9

program zz1;
var n,k1,k2,b,m:integer;
begin
read(n); //вводим данное n
while nlt;gt;0 do //повторяем цикл пока начальное число не станет 0
begin
m:=n mod 10; //получаем последнюю цифру
if m=0 then k1:=k1+1; //считаем количество 0
if m=9 then k2:=k2+1; //считаем количество 9
n:=n div 10; //выбрасываем эту цифру из числа
end;
if k1=k2 then write(в начальном числе больше цифр 0 и 9 идиентично) else
if k1gt;k2 then write(в исходном числе больше цифр 0) else write(в начальном числе больше цифр 9);// выводим ответ на экран
end.