параметры в процедурах

[Radmir. v]

Помогите определить параметры в процедурах, пожалуйста)))

const n=50;
type temp= array[1..n] of integer;
var  tp                   : temp;
     i, s , o             : integer;
procedure vvod;
          begin
          randomize;
          for i:=1 to n do
    	    tp[i]:=random(36)-15;
          end;
procedure poisk ;
          begin
          for i:=1 to n do begin
                      if tp[i]<0 then begin
                      o:=tp[i];
                      break;
                      end;
          end;
          end;
procedure summa;
          begin
	        for i:=1 to n  do
          if tp[i] mod 2 = 0 then s:=s+tp[i];
          end;
begin
   vvod;
   poisk;
   writeln('Первый отрицательный элемент: ',o);
   summa;
   writeln('Сумма четных элементов: ',s);
end.

[Stilet]

const n=50;
type temp= array[1..n] of integer;
var o,s:integer;

procedure vvod(tp:temp);var i:integer;
          begin
          randomize;
          for i:=1 to n do
    	    tp[i]:=random(36)-15;
          end;
procedure poisk(tp:temp) ;var i:integer;
          begin
          for i:=1 to n do begin
                      if tp[i]<0 then begin
                      o:=tp[i];
                      break;
                      end;
          end;
          end;

procedure summa(tp:temp);var i:integer;
          begin
	        for i:=1 to n  do
          if tp[i] mod 2 = 0 then s:=s+tp[i];
          end;
var  tp  : temp;
    
begin
   vvod(tp);
   poisk(tp);
   writeln('Первый отрицательный элемент: ',o);
   summa(tp);
   writeln('Сумма четных элементов: ',s);
end.