Задача с 2-мя одномерными массивами оформленная через процедуру

uses crt;
const n=10; m=10;
var y:array[1..m] of integer;
    x:array[1..n] of integer;
    i:integer; s1,s2,k1,k2,z:real;
Procedure  pro (a:array[1..m] of integer; var s,k : real);
Begin
     s:=0;
     k:=0;
     for i:=i to m do
         if a[i]>0 then begin
         s:=s+a[i];
         k:=k+1;
         end;
End;
Begin
     clrscr;
     randomize;
     for i:=1 to m do
                   Begin
                        y[i]:=random(20)-9;
                        writeln('y',i,'=',y[i]);
                   end;
     for i:=1 to n do
                   Begin
                        x[i]:=random(20)-9;
                        writeln('x',i,'=',x[i]);
                   end;
     pro(x,s1,k1);
     pro(y,s2,k2);
     writeln(s1);
     writeln(k1);
     writeln(s2);
     writeln(k2);
     z:=(s1+s2)/(k1*k2);
     writeln('z=',z);
     readln
End.

uses crt;
Const n=20; m=10;
Type TMas=array[1..100] of integer;
     TInf=Integer;
Var y,x:TMas;
    i:integer;
    s1,s2,k1,k2:TInf;
    z:real;
 
Procedure  pro (Var mas:TMas; razm:Integer; Var s,k:TInf);
Var i:Integer;
Begin
     k:=0; s:=0;
     For i:=1 To razm Do Begin
         mas[i]:=Random(21)-10;
         If mas[i]>0 Then Begin
            s:=s+mas[i];
            Inc(k);
         End;
     End;
End;
 
BEGIN
 clrscr;
 randomize;
 pro(x,n,s1,k1);
 pro(y,m,s2,k2);
 writeln('x: ',k1,' ',s1);
 writeln('y: ',k2,' ',s2);
 z:=(s1+s2)/(k1*k2);
 writeln('z=',z:6:2);
 readln
END.