Найти наибольшую цифру целого четырёхзначного числа - Free Pascal

Формулировка задачи:

Наибольшая цифра Найти наибольшую цифру целого четырёхцифрового числа. Входные данные: Одно целое четырёхцифровое число. Выходные данные: Искомая наибольшая цифра. 

Решение задачи: «Найти наибольшую цифру целого четырёхзначного числа»

Листинг программы

program BiggestDigit;
 
var x, y, bd, i: Integer;
 
begin
    bd:=0;
    write('X = ');
    readln(x);
    for i:=1 to 4 do
    begin
        y := x mod 10;
        x := x div 10;
        if y>bd then
            bd:=y;
    end;
    write('Biggest digit is ', bd);
    readln;
end.

Объяснение кода листинга программы

Объявление переменных:
- x, y, bd, i: Integer (целые числа)
Инициализация переменной bd значением 0.
Вывод сообщения X = и запрос ввода четырёхзначного числа.
Цикл от 1 до 4 (включительно) с шагом 1.
В каждой итерации цикла значение переменной y равно остатку от деления x на 10 (последняя цифра числа x).
Значение переменной x делится на 10 (удаляется последняя цифра числа x).
Если значение переменной y больше значения переменной bd, то значение переменной bd присваивается значение переменной y.
После завершения цикла выводится сообщение Biggest digit is и значение переменной bd.
Программа ожидает ввода, чтобы пользователь мог увидеть результат.