Вычислить суммы элементов главных диагоналей массивов с использованием подпрограмм

type TMyArray=array[1..100,1..100] of Integer;
 
function SumMainCross(M : TMyArray; MSize : Integer):Integer;
var sum, i : Integer;
begin
  sum:=0;
  for i:=1 to MSize do sum:=sum+M[i,i];
  SumMainCross := sum;
end;

Program Pr_1;
uses crt;
type mass=array[1..10, 1..10] of integer;
var a,b:mass;
i,j,n,m,k:integer;
   procedure summ(c:mass; var n,m,s:integer);
   begin
   s:=0;
   for i:=1 to n do
   for j:=1 to m do 
   if i=j then 
   s:=s+c[i,j];
   end;
begin 
clrscr;
randomize;
writeln(' vvedite kol-vo n i m');
readln(n,m);
  for i:=1 to n do begin
  for j:=1 to m do
  A[i,j]:=random(15);
  summ(a,k,n,m,i,j);
  writeln('summ =' , k);
  writeln;
  end;
    writeln('vvedite n i m');
    readln(n,m);
  for i:=1 to n do begin
  for j:=1 to m do 
  B[i,j]:=random(15);
  
  summ(b,m,n,i,j,k);
    writeln('summ=', k);
    end;
   
    readln;
    end.

program Pr_1;
uses crt;
type mass = array[1..10, 1..10] of integer;
 
procedure summ(c: mass; n, m : integer; var s: integer);
var i,j :integer;
begin
  s := 0;
  for i := 1 to n do
    for j := 1 to m do
      if i = j then
        s := s + c[i, j];
end;
 
procedure printmass(c: mass; n, m: integer);
var i,j :integer;
begin
  for i := 1 to n do begin
    for j := 1 to m do
      Write(C[i,j]:2,' ');
    WriteLn
  end;  
end;
 
var A, B: mass;
  i, j, n, m, sumdiag : integer;
 
begin
  clrscr;
  randomize;
  writeln('Massiv A. Vvedite kol-vo n i m');
  readln(n, m);
  for i := 1 to n do
    for j := 1 to m do
      A[i, j] := random(15);
 
  printmass(A, n, m);
  summ(A, n, m, sumdiag);
  writeln('summ =', sumdiag);
  writeln;
 
  writeln('Massiv B. vvedite n i m');
  readln(n, m);
  for i := 1 to n do 
    for j := 1 to m do
      B[i, j] := random(15);
 
  printmass(B, n, m);
  summ(B, n, m, sumdiag);
  writeln('summ =', sumdiag);
  writeln;
 
  readln;
end.

procedure sumgd(const a: mass; m, n: Integer; var s: Integer);
begin
  if n>m then n:=m;
  s:=0; for n:=1 to n do s:=s+a[n];
end;

  s := 0;
  for i := 1 to n do
    s := s + c[i, i];

s := 0;
  for i := 1 to n do
    for j := 1 to m do
       if i=j then s := s + c[i, j];

s:=0;
if n<m then k:=n else k:=m;
for i := 1 to k do s:= s+c[i,i];