Паскаль. Найти наименьшее среди положительных из 10 чисел, введенных с клавиатуры (пределы изменения не заданы)

Uses Crt;

const n=10;

var

A: array[1 ... n] of integer;

i, f, f1: integer;

begin

clrscr;

f:=-1;

f1:=-1;

for i:=1 to n do

begin

writeln ('введите', i,' элемент массива ') ;

readln (A[i]) ;

if A[i]>0 then

begin

f1:=A[i];

if f<0 then

f:=A[i];

if f>f1 then

f:=A[i];

end;

end;

writeln ('наименьшее положительное', f) ;

readln;

end.