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

uses Crt;const n=10;varA: array[1..n] of integer;i,f,f1: integer;beginclrscr;f:=-1;f1:=-1;for i:=1 to n dobeginwriteln('введите',i,' элемент массива ');readln (A[i]);if A[i]>0  thenbeginf1:=A[i];if f<0 thenf:=A[i];if f>f1 thenf:=A[i];end;end;writeln('наименьшее положительное', f);readln;end.