Массив в паскале

[Malysya]

Массив в паскале

Здравствуйте. помогите исправить ошибку в программе, условие такое:
Найти в вывести минимальное значение среди элементов массива которые имеют нечетное значение и делится на пять.
const
n=20;
var
a:array[1..n] of integer;
i,j,min: integer;
begin
for i:=1 to n do
readln(a);
min:=a[1];
for i:=2 to n do
if a<min then
min:=a;
min:=min div 2;
min:=min div 5;

подскажите пожалуста ощибку в программе.

 

[AlexZir]

const n=20;
var
  a:array[1..n] of integer;
  i,j,min: integer;
begin
  for i:=1 to n do
    readln(a[i]);
min:=32767;
for i:=1 to n do
if (a[i] mod 2=1) and (a[i] mod 5=0) then if a[i]<min then min:=a[i];

Дальше листинг допишите сами )