Баг Опции

[fr33m]

Ребят, помогите пожалуйста с прогой, не знаю в чем проблема, вроде написано всё верно, а вылетает. Програмка маленькая

Найти номер и значение минимального положительного элемента массива. Рассматривать элементы массива, имеющие четные значения.

Uses Crt ;
Var
A: Array[1..20] of Integer;
I,min,n: Integer;
Begin
ClrScr;
Writeln('Лабораторная работа 1');
Writeln('Найти номер и значение минимального положительного элемента массива.');
Writeln('Рассматривать элементы массива, имеющие четные значения.');
Writeln('Количество элементов массива - целое число <=20');
Writeln('Введите n');
Readln (N);
If (N>=1) and ( N<=20) then
   begin
   Writeln('Значения элементов массива - целые числа');
   For I := 1 to N do
   Begin
   Write('A[',I,']=');
   Readln(A[I]);
   End;
   Writeln('В исходном массиве ',  N, ' элементов');
   Writeln('Исходный массив');
   For I:=1 to N do
   Write(A[I]:4);
   Writeln;
   i:=2;
   min:=a[2];
   while a[i]<=n do
   If (a[i]<=min) and (a[i]>0) Then
      begin
      A[i]:=min;
      i:=i+2;
      End;
   writeln('Минимальный положительный элемент равен ',min);
   readln;
end
Else
Writeln('Ошибка ! Число элементов массива от 1 до 20');
readln;
End.

while a[i]<=n do
   If (a[i]<=min) and (a[i]>0) Then
      begin
      A[i]:=min;
      i:=i+2;
      End; 

в этом месте что-то происходит не так