Двумерные массивы

uses crt; 
const n=5; 
var mas: array [1..n, 1..n] of integer;       
      i, j: byte; sum: longint; p: integer; 
begin
 randomize; 
 clrscr;  
 writeln ('исходный массив: '); 
 for i:=1 to n do        {заполнение и вывод значений элементов массива}  
  begin   
   for j:=1 to n do  
    begin 
     a[i, j]:=random (41)-20; 
     write (a[i, j]:4); 
    end; 
   writeln; 
  end;
  writeln;
  for i:=1 to n-1 do       {сортировка диагонали массива}
   for j:=i+1 to n do
    if a[i, i] > a[j, j] then
      begin
       p:=a[i, i];       {где p - переменная для временного хранения значения элемента массива}         
       a[i, i]:=a[j, j];
       a[j, j]:=p; 
      end;
  writeln ('изменённый массив: ');
  for i:=1 to n do      {вывод изменённого массива}
   begin
     for j:=1 to n do
      write (a[i, j]:4);
     writeln;
   end;
  writeln;
  for i:=2 to n do     {вычисление суммы и последующий вывод значения} 
   for j:=1 to n-1 do
    sum:=sum+a[i, j];
  writeln ('сумма элементов под главной диагональю = ',sum);
 end.

uses crt;
const n=3; m=3;
type matr=array[1..n+m,1..n+m] of integer;
var a,b:matr;
i,j:integer;
procedure SOZD(var d:matr; k:integer);
begin
for i:=1 to k do
for j:=1 to k do
d[i,j]:=random(100);
end;
procedure VIVOD( d:matr; k:integer; t:string);
begin
writeln(t);
for i:=1 to k do begin
for j:=1 to k do
write(d[i,j]:5);
writeln
end;
end;
 function SUM( d:matr; k:integer):integer;
var
s:integer;
begin
s:=0;
for i:=1 to k do
for j:=1 to k do
if i>j then
s:=s+d[i,j];
SUM:=s
end;
procedure SORT(var d:matr; k:integer);
 
 
 
end;
procedure RABOTA(var d:matr; k:integer; t:string);
begin
SOZD(d,k);
VIVOD(d,k,'matrica '+t);
writeln;
writeln('Summa ', t, SUM(d,k));
writeln;
SORT(d,k);
VIVOD(d,k,t);
end;
BEGIN clrscr;
randomize;
RABOTA(a,n,' A ');
writeln;
RABOTA(b,m,' B ');
readkey;
end.

procedure SORT(var d:matr; k:integer);
var i,j:byte;
     x:integer;
begin
for i:=1 to k-1 do
for j:=i+1 to k do
if d[i,i]>d[j,j] then
 begin
  x:=d[i,i];
  d[i,i]:=d[j,j];
  d[j,j]:=x;
  end; 
end;