Pascal, цикл while или repeat Ввести число. Найти наибольшую цифру в записи числа.

var n : integer; max: byte; begin write ('Введите число: '); readln (n); n:=abs (n); while n>0 do begin if (n mod 10)>max then max:=n mod 10; n:=n div 10; end; write ('Макс. цифра - ', max); end.