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

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

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.