Даны три матрицы

[Lizonka-88]

Заданы 3 матрицы: А(третий порядок), В(второй порядок), С(третий порядок). найти макс из трех чисел x,y,z - след матриц соот-но (сумма элементов главной диагоноали).
нужно исправить процедуру, чтобы можно было двумерный массив использовать

Program zad6; 
uses crt;
const
n=3; k=2;
type
mas= array[1..n,1..n] of integer;
mas_2= array[1..k,1..k] of integer;
var
a,c: mas; b: mas_2; x,y,z,Max: integer;
i,j:byte;
procedure GetSum (mas: array[1..n,1..n] of integer;  var sum: integer);
var
    i: integer;
begin
    sum := 0;
    for i := 1 to n do
        Inc(sum, mas[i,i]);
end;
Begin
clrscr;
 writeln('vvedite massiv A');
  for i:= 1 to n do
    for j:= 1 to n do
        readln(a[i,j]);
 GetSum(a,x);
 {writeln('vvedite massiv B');
  for i:= 1 to n do
    for j:= 1 to n do
        readln(b[i,j]);
 GetSum(b,y);}
 writeln('vvedite massiv C');
  for i:= 1 to n do
    for j:= 1 to n do
        readln(c[i,j]);
 GetSum(c,z);
max:=x;
if (x>y) and (x>z) then writeln('x - íàèáîëüøåå ÷èñëî è ðàâíî ', x:3) else
if (y>x) and (x>z) then writeln('y - íàèáîëüøåå ÷èñëî è ðàâíî ', y:3)
                   else writeln('z - íàèáîëüøåå ÷èñëî è ðàâíî ', z:3);

end.

[Exoo]

r -размер передаваемой матрицы

Program zad6;
uses crt;
const
n=3; k=2;
type
mas= array[1..n,1..n] of integer;
var
a,c,b: mas; x,y,z,Max: integer;
i,j:byte;
procedure GetSum (r:byte;mas: array[1..n,1..n] of integer;  var sum: integer);
var
    i: integer;
begin
    sum := 0;
    for i := 1 to r do
        Inc(sum, mas[i,i]);
end;
Begin
clrscr;
 writeln('vvedite massiv A');
  for i:= 1 to n do
    for j:= 1 to n do
        readln(a[i,j]);
 GetSum(3,a,x);
 writeln('vvedite massiv B');
  for i:= 1 to k do
    for j:= 1 to k do
        readln(b[i,j]);
 GetSum(2,b,y);
 writeln('vvedite massiv C');
  for i:= 1 to n do
    for j:= 1 to n do
        readln(c[i,j]);
 GetSum(3,c,z);
max:=x;
if (x>y) and (x>z) then writeln('x - iaeaieuoaa ?enei e ?aaii ', x:3) else
if (y>x) and (x>z) then writeln('y - iaeaieuoaa ?enei e ?aaii ', y:3)
                   else writeln('z - iaeaieuoaa ?enei e ?aaii ', z:3);

end.