Сформировать два массива из двух матриц по правилу

unit myunit;
 
interface
uses crt;
const n=3;
type matr=array[1..n,1..n] of integer;
procedure Vvod(c: char; var z:matr);
procedure Vyvod(c: char;var z:matr);
procedure Summas(x,y: matr; var z:matr);
procedure Razmas(x,y: matr; var z:matr);
procedure Okras (c: char; var z: matr);
 
implementation
 
procedure Vvod(c: char; var z:matr);
var i,j:byte;
begin
writeln('Çàïîëíÿåì ìàòðèöó ',c);
for i:=1 to n do
    for j:=1 to n do
        begin
        write(c,'[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Vyvod(c: char;var z:matr);
var i,j:byte;
begin
writeln('Ìàòðèöà ',c);
for i:=1 to n do
    begin
    for j:=1 to n do
        write(z[i,j]:4);
    writeln;
    end;
end;
 
procedure Summas(x,y: matr; var z:matr);
var i,j:byte;
begin
for i:=1 to n do
    for j:=1 to n do
        z[i,j]:=x[i,j]+y[i,j];
end;
 
procedure Razmas(x,y: matr; var z:matr);
var i,j:byte;
begin
for i:=1 to n do
    for j:=1 to n do
        z[i,j]:=x[i,j]-y[i,j];
end;
 
procedure Okras (c: char; var z: matr);
var i,j,imax,jmax:byte;
begin
imax:=1; jmax:=1;
for i:=1 to n do
    for j:=1 to n do
        if z[i,j]>z[imax,jmax] then
           begin
           imax:=i;
           jmax:=j;
           end;
textcolor(0);
writeln('Ìàêñ. ýëåìåíò ìàòðèöû ',c,' = ',z[imax,jmax]);
writeln('Ìàòðèöà ',c);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if z[i,j]=z[imax,jmax] then
           begin
           textcolor(3);
           write(z[i,j]:4);
           end else
           begin
           textcolor(0);
           write(z[i,j]:4);
           end;
        end;
    writeln;
    end;
end;
 
end.

uses crt,myunit;
var a,b,c,d:matr;
 
begin
Vvod('A',a);
Vvod('B',b);
Vyvod('A',a);
Vyvod('B',b);
Summas(a,b,c);
Razmas(a,b,d);
Okras ('C',c);
Okras ('D',d);
 
 
readln
end.