запись массива в процедуру(решение уже готово)

uses crt;
 
type a = array[1..5,1..10] of integer;
 
procedure massiv(mas:a);
  var
i,j:integer;
sym,arifm,kol:real;
    begin
    clrscr;
   randomize;
   writeln('isxodnaia matricha');
   for i:=1 to 5 do
    begin
     for j:=1 to 10 do
      begin
       mas[i,j]:=random(10)-5;
       write(mas[i,j]:3,'');
      end;
      writeln;
      end;
 
    sym:=0;
     kol:=0;
      begin
      for i:=1 to 5 do
    begin
     for j:=1 to 10 do
      begin
      
       sym:=sym+mas[i,j];
 
          arifm:=sym/10;
          
          end;
          writeln('syyma elementov = ',sym);
          writeln('srednee arifmeticheskoe = ',arifm);
           end;
            end;
                begin
                for i:=1 to 5  do begin
                kol:=0;
                 for j:=1 to 10 do begin
                 
             if (mas[i,j]<arifm) then
              kol:=kol+1;
            end;
              writeln('kolichestvo elementov < sredarif = ',kol);
              end;
           end; end;
           
      begin
      
      massiv(mas);
 
       end.

uses crt;
const n=5;
      m=10;
type a = array[1..n,1..m] of integer;
 
procedure massiv(mas:a);
var i,j:integer;
sym,arifm,kol:real;
begin
for i:=1 to n do
 begin
  sym:=0;
  for j:=1 to 10 do
  sym:=sym+mas[i,j];
  arifm:=sym/m;
  kol:=0;
  for j:=1 to m do
  if mas[i,j]>arifm then kol:=kol+1;
  writeln('V stroke ',i,' sr.arif.=',arifm:4:1,' kol.elem.>sr.arif.=',kol);
 end;
end;
var mas:a;
    i,j:integer;
begin
randomize;
writeln('isxodnaia matricha');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    mas[i,j]:=-5+random(10);
    write(mas[i,j]:3,'');
   end;
  writeln;
 end;
massiv(mas);
end.