Даны два двухмерных массива размерности n x n. Вывести на экран тот из них у кого сумма элементов главной диагонали меньше.

uses crt;
const n=10;
type mas=array[1..n,1..n]of integer;
function p(x:mas):integer;
var
   i,j,s:integer;
begin
s:=0;
for i:=1 to n do begin
   for j:=1 to n do  begin
    if i=j then s:=s+x[i,j];
      end;
    end;
    p:=s;
end;
 
var
   a:mas;
   b:mas;
   i,j:integer;
 
begin
clrscr;
randomize;
for i:=1 to n do begin
   for j:=1 to n do begin
    a[i]:=random(100);
    write(a[i]:3);
    end;
writeln;
end;
 
for i:=1 to n do begin
  for j:=1 to n do begin
    b[i]:=random(100);
    write(b[i]:3);
    end;
writeln;
end;
 
if p(a)>p(b) then writeln(p(b))
else writeln(p(a));
readln
end.

var
  mas1,mas2:array[1..10,1..10] of integer;
  i,j:integer;
  sum1,sum2:integer;
begin
  randomize;
  sum1:=0;
  sum2:=0;
  for i:=1 to 10 do
    begin
      for j:=1 to 10 do
        begin
          mas1[i,j]:=random(20);
          mas2[i,j]:=random(20);
        end;
    end;
 
    for i:=1 to 10 do
    begin
      for j:=1 to 10 do
        begin
          if i=j then
            begin
              sum1:=sum1+mas1[i,j];
              sum2:=sum2+mas2[i,j];
            end;
        end;
    end;
 
    for i:=1 to 10 do
    begin
      for j:=1 to 10 do
        begin
        if (sum1<sum2) then
        write(' ',mas1[i,j])
        else write(' ',mas2[i,j]);
        end;
        writeln;
    end;
    readln;
end.