Дано натуральное число. Определить, какая цифра встречается в нём чаще-1 или 9. Pascal

program zz1;

var n, k1, k2, b, m:integer;

begin

read (n); / /вводим заданное n

while n0 do / /повторяем цикл пока исходное число не станет 0

begin

m:=n mod 10; / /получаем последнюю цифру

if m=1 then k1:=k1+1; / /считаем количество 1

if m=9 then k2:=k2+1; / /считаем количество 9

n:=n div 10; / /выбрасываем эту цифру из числа

end;

if k1=k2 then write ('в исходном числе больше цифр 1 и 9 одинаково') else

if k1>k2 then write ('в исходном числе больше цифр 1') else write ('в исходном числе больше цифр 9'); / / выводим ответ на экран

end.