С клавиатуры вводится натуральное число N. Программа выводит максимальную нечетную цифру числа. Написать программу на Паскале.

var     max, n, t: integer; begin     readln(n);     max := -1;     while n > 0 do     begin         t := n mod 10;         if (t mod 2 = 1) and (max < t) then             max := t;         n := n div 10;     end;          if max = -1 then writeln('Нет такого числа')     else         writeln('Max = ', max); end.