Заполнить матрицу случайными числами,разместить на главной диагонали суммы элементов

uses crt;
var a:array[1..20,1..20]of integer;
    n,i,j,c,sum,k,max,l,p:integer;
begin
clrscr;
randomize;
write('Введите размер матрицы n= ');
readln(n);
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
        a[i,j]:=random(10);
        write(a[i,j]:4);
       end;
     writeln;
   end;
for i:=1 to n do
for j:=1 to n do
if(j=i)and(j<=n-i+1) then{если на главной диагонали и выше побочной или на ней}
 begin
  sum:=0;
  for k:=1 to 2*i-1 do{квадрат с центром с этим элементом}
  sum:=sum+a[k,(2*i-k)];{сумма элементов побочной диагонали этого квадрата}
  a[i,i]:=sum;{пишем на главную}
 end
else if(j=i)and(j>n-i+1)then{если ниже побочной}
 begin
  sum:=0;
  for k:=n downto 2*i-n do{начинаем выбирать квадраты снизу}
  sum:=sum+a[k,2*i-k];
  a[i,i]:=sum;
 end;
writeln('Результат:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

uses crt;
type matr=array[1..20,1..20]of integer;
procedure Vvod(var a:matr;var n:byte);
var i,j:byte;
begin
write('Введите размер матрицы n= ');
readln(n);
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to n  do
       begin
        a[i,j]:=random(10);
        write(a[i,j]:4);
       end;
     writeln;
   end;
end;
procedure SumGl(var a:matr;n:byte);
var i,j,k:byte;
    sum:integer;
begin
for i:=1 to n do
for j:=1 to n do
if(j=i)and(j<=n-i+1) then{если на главной диагонали и выше побочной или на ней}
 begin
  sum:=0;
  for k:=1 to 2*i-1 do{квадрат с центром с этим элементом}
  sum:=sum+a[k,(2*i-k)];{сумма элементов побочной диагонали этого квадрата}
  a[i,i]:=sum;{пишем на главную}
 end
else if(j=i)and(j>n-i+1)then{если ниже побочной}
 begin
  sum:=0;
  for k:=n downto 2*i-n do{начинаем выбирать квадраты снизу}
  sum:=sum+a[k,2*i-k];
  a[i,i]:=sum;
 end;
end;
procedure Vyvod(var a:matr;n:byte);
var i,j:byte;
begin
writeln('Результат:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
var mt:matr;
    n:byte;
begin
clrscr;
randomize;
Vvod(mt,n);
SumGl(mt,n);
Vyvod(mt,n);
readln
end.