Подпрограмма: определить матрицу, у которой сумма элементов на главной диагонали больше

Type matr=array[1..20,1..20] of integer;
     mas=array[1..20] of real;
Var A,B:matr;
    C:mas;
    n,m:byte;
Procedure VvodViv(Var A:matr;n:byte;ch:char);
Var i,j:byte;
Begin
    writeln('Матрица ',ch);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
End;
Function Sum(A:matr;n:byte):integer;
Var i,s:integer;
Begin
    s:=0;
    For i:=1 to n do
     s:=s+A[i,i];
    Sum:=s;
End;
Procedure Masiv(A:matr;n:byte;Var B:mas);
Var i,j,k:byte;
    t:real;
Begin
    j:=1;k:=0;
    For i:=1 to n do
     B[i]:=0;
    While j<=n do
    Begin
      inc(k);
      For i:=1 to n do
       B[k]:=B[k]+A[i,j];
      B[k]:=B[k]/n;
      inc(j,2);
    End;  
    writeln('Полученный массив');
    For i:=1 to k do
     write(B[i]:6:2);
    writeln;
    For i:=k downto 2 do
     For j:=2 to i do
      if abs(B[j])>abs(B[j-1]) then
      Begin
        t:=B[j];
        B[j]:=B[j-1];
        B[j-1]:=t;
      End;
    writeln('Преобразованный массив');
    For i:=1 to k do
     write(B[i]:6:2);
End;
Begin
    write('N = ');readln(n);
    VvodViv(A,n,'A');
    write('M = ');readln(m);
    VvodViv(B,m,'B');
    if Sum(A,n)>Sum(B,m) then 
    Begin
      writeln('В матрице A сумма диагонали, там сумма = ',Sum(A,n));
      Masiv(A,n,C);
    End
    else
    Begin
      writeln('В матрице A сумма диагонали, там сумма = ',Sum(B,m));
      Masiv(B,m,C);
    End;
    readln;
End.