(Pascal) Нахождение 3 минимумов в одномерном массиве

Код:
program jadai;
uses crt;
type index=1..102;
     mas=array[index] of integer;
var a:mas;
    p,i,min1,min2,min3,n,p1,p2,p3:integer;
    metka:integer;
begin
     clrscr;
     writeln('Программа определит порядковые номера 3 наименьших ');
     writeln('нечетных элементов и их произведение');
     repeat
     writeln('введите количество элементов массива от 6 до 100=  ');
     read(n);
     until (n>=6) and (n<=100);
     writeln('введите элементы массива');
     repeat
     i:=i+1;
     write(i,'элемент=');
     read(a);
     until (a=0) or (i=n);
     n:=i;
     i:=1;
     min1:=maxint;
     min2:=maxint;
     min3:=maxint;
     repeat
     if (a mod 2<>0) and (a<min1) then begin
                                              min1:=a;
                                              p1:=i;
                                            end;
     i:=i+1;

     if (a mod 2<>0) then
       if (a<min2) and (i<>p1) then begin
                                         min2:=a;
                                         p2:=i;
                                        end;

     i:=i+1;

     if (a mod 2<>0) then
     if (a<min3) and (i<>p1) and (i<>p2) then begin
                                                  min3:=a;
                                                  p3:=i;
                                                 end;

     i:=i+1;
     until i>n;
     if (p1<>0)AND(p2<>0)AND(p3<>0)then
     begin
     p:=min1*min2*min3;
     writeln('порядковый номер 1-го min  ',p1);
     writeln('порядковый номер 2-го min  ',p2);
     writeln('порядковый номер 3-го min  ',p3);
     writeln('произведение минимальных элементов',p:4);
     end;
     if (p1=0)OR(p2=0)OR(p3=0)then
     begin
     writeLN('Net takix chisel');
     end;
     readkey;
     end.
END.