Напечатать квадрат той из матриц, в которой наименьший след

const n_max=10;
type matrix=array [1..n_max,1..n_max] of real;
var A,B:matrix;
    n,m:integer;
    S,Sa,Sb:real;
procedure M_read (var A:matrix; n:integer);
var i,j:integer;
begin
  for i:=1 to n do
   for j:=1 to n do
    read (A[i,j]);
end;
 
procedure Sled (A:matrix;n:integer;var S:real);
var i:integer;
begin 
  S:=0;
  for i:=1 to n do
   S:=S+A[i,i];
end;
 
procedure M_write (A:matrix; n:integer);
var i,j:integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to n do
     write (a[i,j]:3);
    writeln;
   end;
end;
 
 
begin
  writeln('введите размер матрицы A: n='); 
  readln(n);
  M_read (A,n);
  writeln('введите размер матрицы B: m=');
  readln(m);
  M_read (B,m);
  Sled(A,n,S);
  Sa:=S;
  Sled(B,m,S);
  Sb:=S;
  if Sa<Sb then
  M_write (A,n)
  else M_write (B,m)
end.