найти наибольшее из трех чисел: MA, MB, MC, где MA,MB,MC - следы матриц A,B,C соответственно

[andygood]

Добрый день! помогите пожалуйста с задачей.
Задача:

Для заданных матриц: A={aij}3x3 B{bij}4x4 и C{cij}2x2 найти наибольшее из трех чисел: MA, MB, MC, где MA,MB,MC - следы матриц A,B,C соответственно. Использовать функцию

След матрицы это вроже сумма всех элементов по диагонали

[alex_fcsm]

uses crt;
const n=10;
      da=3;
      db=4;
      dc=2;
var a,b,c:array[1..n,1..n] of integer;
    ma,mb,mc,max:integer;
procedure InitMatr(var x:array[1..n,1..n] of integer; l:integer);
var i,j:integer;
begin
 for i:=1 to l do
  begin
    for j:=1 to l do
     begin
       x[i,j]:=random(10);
       write(x[i,j]:2);
     end;
     writeln;
  end;
  writeln('=============');
end;

function Sled(x:array[1..n,1..n] of integer; l:integer):integer;
var i,res:integer;
begin
 res:=0;
 for i:=1 to l do
  res:=res+x[i,i];
  sled:=res;
end;
    
begin
clrscr;
InitMatr(a,da);
InitMatr(b,db);
InitMatr(c,dc);
ma:=Sled(a,da);
mb:=Sled(b,db);
mc:=Sled(c,dc);
max:=ma;
if max<mb then max:=mb;
if max<mc then max:=mc;
writeln(Max);
end.