Найти наибольшую и наименьшую цифры в записи данного натурального числа (Pascal ABC). C использованием цикла REPEAT

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

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

program MaxMinDigits;
var
num, digit, maxDigit, minDigit: Integer;
begin
write('Введите натуральное число: ');
readln(num);
maxDigit := -1; // Инициализируем переменные максимальной и минимальной цифры
minDigit := 10;
repeat
digit := num mod 10; // Получаем последнюю цифру числа
num := num div 10; // Удаляем последнюю цифру числа
if digit > maxDigit then
maxDigit := digit; // Обновляем максимальную цифру, если необходимо
if digit < minDigit then
minDigit := digit; // Обновляем минимальную цифру, если необходимо
until num = 0;
writeln('Наибольшая цифра: ', maxDigit);
writeln('Наименьшая цифра: ', minDigit);
end.

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