Известны три квадратные матрицы А, В, С. Найти минимальное из трех чисел x,y,z

procedure VV(n: integer; var a: array[,] of integer);
begin
  SetLength(a, n, n);
    for var i := 0 to n - 1 do
    begin
      for var j := 0 to n - 1 do
      begin
        a[i, j] := random(5);
        write(a[i, j]:4);
      end;
      writeln;
    end;
  writeln;    
end;
//***********************************************************
function sum(n:integer; a: array[,] of integer): integer;
var s:integer;
begin
s:=0;
  for var i := 0 to n - 1 do
      s:=s+a[i,i]+a[i,n-1-i]; 
  if odd(n) then 
      sum:=s-a[trunc(n/2),trunc(n/2)]
  else
      sum:=s;
end;
//***********************************************************
var
  a, b, c: array [,] of integer;
  x, y, z, max: integer;
  n1, n2, n3: integer;
begin
write('введите размер первой матрицы: ');
  readln(n1);
    a := new integer[n1, n1];
      VV(n1, a);
        x:=sum(n1,a);
          writeln('сумма всех диагональных элементов матрицы А = ', x);
            writeln;
write('введите размер второй матрицы: ');
  readln(n2);
    b := new integer[n2, n2];
      VV(n2, b);
        y:=sum(n2,b);
          writeln('сумма всех диагональных элементов матрицы B = ', y);
            writeln;
write('введите размер третьей матрицы: ');
  readln(n3);
    c := new integer[n3, n3];
      VV(n3, c);
        z:=sum(n3,c);
          writeln('сумма всех диагональных элементов матрицы C = ', z);
            writeln;
max:=x;
  if y > max then max:= y;
    if z > max then max:= z;  
writeln('max= ', max);  
end.