Паскаль. Найти наименьшее среди положительных из 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.