Паскаль составьте программу определения наибольшей цифры в записи данного натурального числа

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

program LargestDigit;
var
num, remainder, largestDigit: integer;
begin
largestDigit := 0;

write('Enter a natural number: ');
readln(num);

while num > 0 do
begin
remainder := num mod 10;

end;

writeln('The largest digit in the number is: ', largestDigit);
end.