С клавиатуры вводится натуральное число 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.

http://znanija.com/task/20168963 ПОМОГИТЕ ПОЖАЛУЙСТА