Задан массив A из 100 чисел. Описать функцию для определения минимального из положительных чисел среди N первых его элементов. В качестве параметров взять A и N. Если положительных нет, то результат функции — число 7777. — Pascal(Паскаль)

program test;
var a:array[1..100] of integer; i,n,min:integer;
 
function m(a:array of integer;n:integer):integer;
var i,mi:integer;
begin
mi:=0;
for i:=1 to n do
begin
write(a[i], ' ');
if (a[i]>0) and (mi=0) then mi:=a[i] else if (a[i]>0) and (a[i]<mi) then mi:=a[i];
end;
writeln;
if mi=0 then m:=7777 else m:=mi;
end;
begin
randomize;
for i:=1 to 100 do
a[i]:=random(20)-10;
readln(n);
min:=m(a,n);
writeln(min);
readln;
end.