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

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=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 k1gt;k2 then write(в начальном числе больше цифр 1) else write(в начальном числе больше цифр 9);// выводим ответ на экран
end.