Написать программу которая в последовательности натуральных чисел определяет минимальное число оканчивающийся на 4

Var t,n,i,m,k:integer;
begin
readln(n);
read(t);
while (t mod 10 <> 4) do
begin
read(t);
k:=k+1;
end;
m:=t;
for i:=k to n do
begin
read(t);
if (t mod 10=4 and t<m) m:=t;
end;
writeln(m);
end.