Найти сумму диагоналей матрицы

program Lab10_13;
uses crt;
type mas=array[1..50, 1..50] of integer;
var  n,a,b: integer;
     m:mas;
 
Procedure GenerMas(n:integer; a,b:integer; var m:mas);
var i,j:integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to n do
      m[i,j]:=random(b-a)+a;
end;
 
Procedure OutPut(n:integer; m:mas);
var i,j:integer;
begin
  for i:=1 to n do
    begin
    for j:=1 to n do
      write(m[i,j]:4);
      writeln;
    end;
end;
 
Procedure Work(n:integer; var m:mas);
var i,j,sum:integer;
begin
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (i=j) or (i+j=n+1) then
        sum:=sum+m[i,j];
  writeln('Сумма диагоналей матрицы = ',sum)
end;
 
begin
  clrscr;
  randomize;
  repeat
    write('Введите размер квадратной матрицы n (n<=50): ');
    readln(n);
  until (n<=50);
  writeln('Введите границы генерации a и b: ');
  readln (a,b);
  writeln('Генерация массива');
  GenerMas(n,a,b,m);
  OutPut(n,m);
  writeln;
  Work(n,m);
  readln;
end.

program Lab10_13;
uses crt;
type mas=array[1..50, 1..50] of integer;
var  n,a,b,i,j,sum: integer;
     m:mas;
begin
  clrscr;
  randomize;
  repeat
    write('Ââåäèòå ðàçìåð êâàäðàòíîé ìàòðèöû n (n<=50): ');
    readln(n);
  until (n<=50);
  writeln('Ââåäèòå ãðàíèöû ãåíåðàöèè a è b: ');
  readln (a,b);
  writeln('Ãåíåðàöèÿ ìàññèâà');
  for i:=1 to n do
  for j:=1 to n do
   m[i,j]:=random(b-a)+a;
   for i:=1 to n do
    begin
    for j:=1 to n do
      write(m[i,j]:4);
      writeln;
    end;
  writeln;
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (i=j) or (i+j=n+1) then
        sum:=sum+m[i,j];
  writeln('Ñóììà äèàãîíàëåé ìàòðèöû = ',sum);
  readln;
end.