Дано натурально число. Найти его максимальную цифру, используя цикл while. (Паскаль)

Предыдущий
вопрос Следующий
вопрос

program MaxDigit;
var
num, maxDigit, digit: integer;
begin
write('Введите натуральное число: ');
readln(num);

maxDigit := 0;

while num <> 0 do
begin
digit := num mod 10;
if digit > maxDigit then
maxDigit := digit;
num := num div 10;
end;

writeln('Максимальная цифра: ', maxDigit);
end.