Для каждой из двух матриц сформировать одномерные массивы

type
matriza= array[1..10,1..10] of integer;
 
var A,B: martza
procedure proc1(var mass1,mass2:nom);
var m1,m2: array[1..10] of integer;
begin
    for i:=1 to 10 do  begin
        for j:=1 to 10 do begin 
            if mass1[i,j]>0 then
                m1[j]:=m1[j]+1;
 
            if mass2[i,j]>0 then
                m2[j]:=m2[j]+1;
        end;
    end;
 
end;
 
begin
{  заполни массиывы А и В     }
 
    proc1(A,B);
 
end

program N7;
uses crt;
type mas1=array[1..10,1..6] of integer;
     mas2=array[1..10] of integer;
var i,j,h,n,m,k,l:integer;
    A:mas1;
    B:mas2;
procedure G(x:mas1;var y:mas2);
begin
 for i:=1 to n do
 begin
  y[i]:=0;
  for j:=1 to m do
  begin
   x[i,j]:=-10+random(20);
   write(x[i,j]:4);
   if x[i,j]>0 then
   y[i]:=y[i]+1;
  end;
  writeln;
 end;
end;
procedure t(y:mas2);
begin
 writeln;
 for I:=1 to n do
 write(y[i]:4);
end;
begin
 clrscr;
 randomize;
 writeln('Введите размерность матрицы A');
 writeln('a[n m] где n<=10 m<=5');
 readln(n,m);
 if (n<=10) and (n>0) and (m<=5) and (m>0) then
 begin
  writeln;
  G(a,b);
  t(b); writeln;
 end
 else begin writeln('Размер n или m не верен'); writeln; end;
 writeln('Введите размерность матрицы B');
 writeln('b[k l] где k<=7 l<=6');
 readln(n,m);
 if (n<=7) and (n>0) and (m<=6) and (m>0) then
 begin
  writeln;
  G(a,b);
  t(b); writeln;
 end
 else writeln('Размер k или l не верен');
 
End.