Для заданного натурального числа найти наибольшую цифру - Turbo Pascal

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

Помогите написать программу на Турбо Паскале:Для заданного натурального числа найти наибольшую цифру, стоящую на нечетном месте, считая от младших разрядов к старшим.

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

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

{Для заданного натурального числа найти наибольшую цифру, стоящую на нечетном 
месте, считая от младших разрядов к старшим. }
var
  max: byte;
  k, n, i: integer;
 
begin
  readln(n);
  max := 0;
  i := 0;
  while n > 0 do
  begin
    inc(i);
    k := n mod 10;     
    if (odd(i)) and  (max < k) then
      max := k;
    n := n div 10;
  end;
  writeln('MAX: ', max);
end.

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

В начале кода объявляются переменные: max - для хранения наибольшей цифры, k - для хранения остатка от деления числа на 10, n - для хранения введенного числа. Переменная i инициализируется значением 0.
Затем происходит чтение введенного числа с помощью функции readln().
После этого переменная max инициализируется значением 0, а переменная i устанавливается в 0.
Далее идет цикл while, который выполняется до тех пор, пока число n больше 0.
Внутри цикла переменная i увеличивается на 1.
Затем переменная k инициализируется остатком от деления числа n на 10.
Если остаток от деления i на 2 (переменная i) является нечетным и значение переменной max меньше значения переменной k, то переменная max устанавливается равной значению переменной k.
После этого значение переменной n делится на 10 и результат присваивается переменной n.
Цикл while повторяется до тех пор, пока число n не станет равным 0.
По завершении цикла выводится на экран значение переменной max с помощью функции writeln().
Конец программы.