Благой вечер (денек, ночь, утро)! Помогите, пожалуйста, с заданием под номером

на паскале?

Задачка изготовлена на языке паскаль, при подмоги PaskalPlusОформление сделана как для студенческой задачки
Если есть вопросы пиши в личку

Файл: progam_stud.pasЗадача:
Создатель:   Дата: 
  var  a : array [1..1002] of integer;i, im, k, min :integer; //im - индекс искомого числа, min- малое число, k- максимальное количиство чисел в последовательности не считая 0
begin
i:=0;
im:=1;
min:=30001;  //Ввод  repeat  inc(i); 
 writeln ('Введите ', i, ' число'); 
readln (a[i]);   
until(a[i]=0);//если вводится ноль то вот прекращается 
k:= i-1; //фиксируется всего веденных чисел   
for i:=1 to k do   
 begin       
 if ((a[i]lt;min) and (a[i] mod 5 lt;gt; 0) and (a[i] mod 10 lt;gt;7)) then         
  begin           
 im:=i;           
end   
 end;   
writeln(a[im]) ; //вывод    
end.