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

program 1111;
type arr=array [1..3,1..3] of integer;
var i,j,Sa,Sb:integer; a,b:arr;
function sled(a:array [1..3,1..3] of integer): integer;
       begin
       sled:=a[1,1]+a[2,2]+1[3,3]+a[1,3]+a[3,1];
       end;
begin
writeln('vvedite matricu A');
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
Sa:=sled(a);
writeln('vvedite matricu B');
for i:=1 to 3 do
for j:=1 to 3 do
read(a[i,j]);
Sb:=sled(a);
if Sa<Sb then begin
writeln('matrica A (imeet men'shiy sled)');
for i:=1 to 3 do begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln; end; end
else
begin
writeln('matrica B (imeet men'shiy sled)');
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(b[i,j], ' ');
writeln; end; end;
end.

// код отформатирован для удобочитаемости
program p1111; // добавлена буква латиницы
 
type
  arr = array [1..3, 1..3] of integer;
 
var
  i, j, Sa, Sb: integer; a, b: arr;
 
function sled(a: arr): integer; // в параметре указан тип, описаный выше
var s,i: integer;
begin
  for i:=1 to 3 do // так проще
    s:=s+a[i,i];
  sled:=s;
end;
 
begin
  writeln('vvedite matricu A');
  for i := 1 to 3 do
    for j := 1 to 3 do
      read(a[i, j]);
  Sa := sled(a);
  writeln('vvedite matricu B');
  for i := 1 to 3 do
    for j := 1 to 3 do
      read(b[i, j]);                                // указан массив b
  Sb := sled(b);                                // указан массив b
  if Sa < Sb then begin
    writeln('matrica A (imeet menshiy sled)'); // удален ваш "мягкий" знак
    for i := 1 to 3 do 
    begin
      for j := 1 to 3 do
        write(a[i, j], ' ');
      writeln; end; end
  else
  begin
    writeln('matrica B (imeet menshiy sled)');  // удален ваш "мягкий" знак
    for i := 1 to 3 do
    begin
      for j := 1 to 3 do
        write(b[i, j], ' ');
      writeln; end; end;
end.