помогите исправить задачу. процедуры и функции. Pascal

[ksenija15reg]

Составить процедуру нахождения третьего положительного элемента массива А(n). Ввод элементов массива оформить в виде процедуры.

program z2;
uses crt;
type
mas=array [1..100] of integer;
var
a:mas;
n,rez:integer;
procedure vvodmas(var b:mas);
var
i:integer;
begin
randomize;
for i:=1 to n do
begin
b[i]:=random(32)-10;
write(b[i]:4);
end;
end;
function poisk(var b:mas):integer;
var
i,k,ii:integer;
begin
for i:=1 to n do
if b[i]>0  then
k:=k+1;
if k=3 then ii:=i;
poisk:=b[ii];
end;
Begin
clrscr;
write('n= ');
read(n);
vvodmas(a);
rez:=poisk(a);
writeln('tretiy polozhitelniy element: ',rez);
readkey;
end.

[Stilet]

function poisk(var b:mas):integer;
var
i,k,ii:integer;
begin
for i:=1 to n do
 if b[i]>0  then begin 
  k:=k+1;
  if k=3 then begin
    ii:=i;
    poisk:=b[ii];
    exit;
  end;
 end;
end;