Сложите две треугольные матрицы порядка n, у которых только элементы над главной диагональю отличны от нуля

program Project2;
{Условие задачи:
Сложите две треугольные матрицы порядка n, у которых только элементы
над главной диагональю отличны от нуля.}
 
{$APPTYPE CONSOLE}
 
const nmax=20;
var
 a,b,c:array[1..nmax,1..nmax] of integer;  //ввод переменных
 n,i,j:byte;
begin
 randomize;
 repeat
  write('Razmer matric do ',nmax,' n=');  //ввод размера матрицы
  readln(n);
 until n in [1..nmax];
 writeln('Verhnya treygolnya matrica A:');  //треугольная матрица A
 for i:=1 to n do
 begin
  for j:=i+1 to n do
   begin
  //  if j>=i then
     a[i,j]:=random(50)+1;
  //  else
    // a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
 writeln('Verhnya treygolnya matrica B:');  //треугольная матрица A
for i:=1 to n do
 begin
  for j:=i+1 to n do
   begin
   // if j>=i then
    b[i,j]:=random(50)+1;
   // else b[i,j]:=0;
    write(b[i,j]:4);
   end;
  writeln;
 end;
writeln;
 writeln('Matrica c=a+b:');  //сложение треугольных матриц
for i:=1 to n do
 begin
  for j:=i+1 to n do
   begin
    c[i,j]:=a[i,j]+b[i,j];
    write(c[i,j]:4);
   end;
  writeln;
 end;
readln
end.

{$APPTYPE CONSOLE}
const nmax=20;
type mtr=array[1..nmax,1..nmax] of integer;//òèï ìàòðèö
var n:byte;//ðàçìåð ìàòðèö
procedure vvod(var a:mtr;c:char);
var i,j:byte;
begin
fillchar(a,n,0);//îáíóëèì ìàòðèöó
writeln('Vvedite elementy verhnej treugolnoj matricy ',c);
for i:=1 to n-1 do //ââåäåì ýëåìåòû âûøå ãëàâíîé äèàãîíàëè
for j:=i+1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(a[i,j]);
 end;
end;
procedure vyvod(a:mtr;c:char);
var i,j:byte;
begin
writeln('Matrica ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end;
procedure summa(a,b:mtr;var c:mtr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
end;
 
 
var a,b,c:mtr;
begin
repeat
write('Razmer matric ot 2 do ',nmax,' n='); //ââîä ðàçìåðà ìàòðèöû
readln(n);
until n in [2..nmax];//÷òîáû Âàñ íå òÿíóëî ââîäèòü 1
vvod(a,'A');
vvod(b,'B');
vyvod(a,'A');
vyvod(b,'B');
summa(a,b,c);
vyvod(c,'C');
readln
end.