массив. поиск Опции

[лоен]

подскажите, что не так.
четные числа надо перемножить, найти из них(четных) наименьшее и его индекс.

Const
        max=1000;
Var
    A:Array[1..max] of Integer;
    n,i,p,Nmin,min:integer;
begin
      Writeln('Vvedite posledovatelnost');
      n:=0;
      While not SeekEoln Do begin
           n:=n+1;
           read(A[n]);
      end;
      if n=0 then
        writeln('pystaia posledovatelnost')
      else Begin
           p:=1;
           NMin:=0;
           min:=Low(Integer);
           For i:=1 to n Do Begin
               If (A[i] mod 2)=0 Then Begin
                  p:=p*A[i];
                  If min>A[i] Then Begin
                     min:=A[i];
                     NMin:=i;
                  end;
               end;
           end;
           If Nmin=0 Then
              Writeln('V posledovatelnosti net chisel udovletvoryayuschih usloviyu')
           else Begin
                Writeln('Proizvedenie = ',p);
                Writeln('Naimenshee iz chetnyh chisel = ',min);
                Writeln('Ego nomer = ',Nmin);
           end;
      end;
      Readln;
      Readln;
end.

наверняка какая-нибудь оч глупая ошибка

Сообщение отредактировано: лоен - 21.12.2007 22:12