Pascal. НЕобходимо разобрать перед экзаменом.

С клавиатуры вводится последовательность n (n - количество) натуральных чисел. Определить наименьшее тех из них, у которых пред последняя цифра 8.

Мне нужна готовая работающая программа для Паскаля, словесно ответ и так знаю.

Var

d, min, i, n: integer;

begin

write ('Введите N=') ;

readln (n) ;

write ('Введите число ') ;

readln (d) ;

min : = d;

for i : = 2 to n do

begin

write ('Введите следующее число ') ;

readln (d) ;

if (d mod 100 div 10 = 8) and ((min mod 100 div 10 8) or (min > d)) then

min : = d;

end;

if (min mod 100 div 10 8) then

writeln ('Не найдено')

else

writeln (min) ;

end.