Нужно изменить написание программы через процедуры и функции

uses crt;
const n=5;m=6;
var
a:array[1..n,1..n] of integer;
b:array[1..m,1..m] of integer;
var i,j,z,x,sum,l:integer;
begin clrscr; randomize;
writeln('       Массив A');
for i:= 1 to n do begin
for j:= 1 to n do begin
a[i,j]:=random(50)-20;
 
write(a[i,j]:4);
end;
writeln; 
end;
writeln;
writeln('       Массив B');
for z:= 1 to m do begin
for x:= 1 to m do begin
b[z,x]:=random(50)-20;
 
write(b[z,x]:4);
end;
writeln; 
end;
writeln;
sum:=0;
writeln('       Массив A');
for i:=1 to n do begin
Sum:=0;
l:=i;
 
for j:=1 to i do begin
Sum:=Sum+a[j,l];
dec(l);
 
end;
 
write(' ',sum);
   if i+j=n+(n-2) then
     textcolor(4)
    else
     textcolor(7); 
end;
 
begin
for i:=2 to n do begin
Sum:=0;
l:=0;
for j:=i to n do begin
Sum:=Sum+a[j,n-l];
inc(l);
end;
 
write(' ',sum);
end;
end;
writeln;
writeln;
sum:=0;
writeln('       Массив B');
for z:=1 to m do begin
Sum:=0;
l:=z;
 
for x:=1 to z do begin
Sum:=Sum+b[x,l];
dec(l);
 
end;
 
write(' ',sum);
   if z+x=m+(m-2) then
     textcolor(4)
    else
     textcolor(7); 
end;
 
begin
for z:=2 to m do begin
Sum:=0;
l:=0;
for x:=z to m do begin
Sum:=Sum+b[x,m-l];
inc(l);
end;
 
write(' ',sum);
end;
end;
end.

uses crt;
type mtr=array[1..6,1..6] of integer;
     mas=array[1..11] of integer;
procedure matrix(var a:mtr;k:integer;c:char);
var i,j:integer;
begin
writeln('       Матрица ',c);
for i:= 1 to k do
 begin
  for j:= 1 to k do
   begin
    a[i,j]:=-20+random(50);
    if j=k-i+1 then textcolor(red)
    else textcolor(black);//в АВС фон белый
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure massiv(a:mtr;k:integer;var b:mas;var p:integer;c:char);
var i,j,l:integer;
begin
p:=0;
for i:=1 to k do
 begin
  inc(p);
  b[p]:=0;
  l:=i;
  for j:=1 to i do
   begin
    b[p]:=b[p]+a[j,l];
    dec(l);
   end;
 end;
for i:=2 to k do
 begin
  inc(p);
  b[p]:=0;
  l:=0;
  for j:=i to k do
   begin
    b[p]:=b[p]+a[j,k-l];
    inc(l);
   end;
 end;
writeln('  Массив сумм диагоналей ',c);
for i:=1 to p do
 begin
  if i= p div 2+1 then textcolor(red)
  else textcolor(black);
  write(b[i]:4);
 end;
writeln;
writeln;
end;
var a,b:mtr;
    a1,b1:mas;
    n:integer;
begin
randomize;
matrix(a,5,'A');
massiv(a,5,a1,n,'A');
matrix(b,6,'B');
massiv(b,6,a1,n,'B');
end.