В массиве из 10 элементов найти минимальное число, оканчивающееся на 7. ​

begin

*ввод массива*

min=-32767;

for i=1 to 10 do

begin

if (mas[i]<min) and (mas[i] mod 10 = 7) then min:=mas[i];

end;

if (min=-32767) then writeln('Ни одно число не кончается на 7')

else writeln(min);

end.