Pascal ABC. Дано естественное число "n". Составьте программку которая выводит наивысшую

В программке в цикле находится остаток от дробленья на 10 числа n. Наибольшее число до входа в цикл задается одинаковым нулю. Если остаток больше чем переменная max, то переменная max становится равной остатку. Число n делится нацело на 10 и цикл повторяется.

program max_digits;

var n, max: integer;

begin

writeln(Введите натуральное число);

Readln(n);

max:= 0;

while n lt;gt; 0 do

begin

if n mod 10 gt; max then max:= n mod 10;

n:=n div 10

end;

writeln(Наибольшая цифра: ,max)

end.