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

Const m=200; var a: array[1..m] of integer;     i,j,n: integer; begin     write('количество элементов массива:   ');     readln(n);     randomize;     write('массив:   ');     for i: =1 to n do     begin       a[i]: =random(40);       write(a[i],' ');     end;     writeln;     write('отсортированный массив:   ');       for i: =1 to n-1 do     for j: =i+1 to n do     if a[i]> a[j] then swap(a[i],a[j]);     for i: =1 to n do write(a[i],' '); end.     количество элементов массива:   10 массив:   32 2 10 22 2 13 25 6 15 6  отсортированный массив:   2 2 6 6 10 13 15 22 25 32 

Const n=10;   var a: array[1..n] of integer; i,k: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(90)+10;   write(a[i]: 4);   end; writeln; k: =0; for i: =1 to n do   if a[i] mod 2=0 then k: =k+1; writeln('четных чисел: ',k); writeln('элементы с нечетными номерами: '); for i: =1 to n do   if i mod 2=1 then write(a[i]: 4); writeln; end. пример: массив a: 13 77 63 94 75 87 22 56 59 42четных чисел: 4элементы с нечетными номерами: 13 63 75 22 59