Помогите пожалуйста!На вход программы поступает естественное число, не превышающее 10^9 Нужно

Помогите пожалуйста!
На вход программки поступает натуральное число, не превышающее 10^9 Нужно написать
программку, которая выводит на экран максимальную цифру числа, наименьшую 5 Если в числе нет цифр,
наименьших 5, требуется на экран вывести NO. В приведённой программке есть оплошности.
var N, d, m: longint;
begin
readln(N);
m := N mod 10;
while N gt; 0 do begin
d := N mod 10;
if d lt; 5 then
if d gt; m then m := d;
N := N div 10;
end;
if m = 0 then
writeln('NO')
else writeln( m )
end.
Последовательно сделайте последующее.
1 Напишите, что выведет эта программка при вводе числа 157
2 Укажите наивеличайшее трёхзначное значение входной переменной n, при вводе которого
программка выведет правильный ответ. Укажите это ответ.
3 Найдите в программе все оплошности (их может быть одна либо несколько). Для каждой ошибки
выпишите строку, в которой она допущена, и приведите эту же строчку в исправленном виде.