Даны два двумерных массива А и B вывести на экран тот из них у которого след меньше (след - сумма элементов главной диагонали)

var a:array[1..10,1..10]of integer; b:array[1..10,1..10]of integer; i,j,s1,s2:integer; begin for i:=1 to 10 do for j:=1 to 10 do begin a[i,j]:=random(9)+1; b[i,j]:=random(9)+1; end; for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end; writeln; for i:=1 to 10 do begin for j:=1 to 10 do write(b[i,j],' '); if j=10 then writeln; end; for i:=1 to 10 do for j:=1 to 10 do if i=j then begin s1:=s1+a[i,j]; s2:=s2+b[i,j]; end; writeln; if s1>s2 then for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end else for i:=1 to 10 do begin for j:=1 to 10 do write(b[i,j],' '); if j=10 then writeln; end; end.