Задан массив на 10 частей, все числа вводятся вручную, гарантируется, что

Var
A:array[1..10] of integer;
i,n,m:integer;
Begin
m:=1001;
WriteLn('Введите массив');
For i:= 1 to 10 do
    Begin
    Read(A[i]);
    if (A[i]lt;m)and(A[i] mod 2 = 0) then
       Begin
       m:=A[i];
       n:=i
       End;
    End;
WriteLn('A[',n,'] = ',m);
End.