Используя процедуру, найти для матриц А(9,9) и В(7,7) произведение и сумму элементов главных диагоналей

uses crt;
type mtr=array[1..9,1..9] of real;
procedure matrix(var a:mtr;n:byte;var p,s:real;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
p:=1;
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=5*random;
    write(a[i,j]:5:2);
    if j=i then
     begin
      p:=p*a[i,j];
      s:=s+a[i,j];
     end;
   end;
  writeln
 end;
writeln('Произведение элементов главной диагонали=',p:0:2);
writeln('Их сумма=',s:0:2)
end;
var a,b:mtr;
    ap,as,bp,bs:real;
begin
randomize;
matrix(a,9,ap,as,'A');
matrix(b,7,bp,bs,'B');
end.

uses
  crt;
 
type
  matrix = array [1..9, 1..9] of integer;
 
var
  a, b: matrix;
  sum, mul: integer;
 
procedure Create(var x: matrix; size: byte);
//процедура создания массива
var
  i, j: byte;
begin
  for i := 1 to size do
    for j := 1 to size do
      x[i, j] := Random(9) + 1;
end;
 
procedure Print(x: matrix; size: byte);
//процедура распечатки массива
var
  i, j: byte;
begin
  for i := 1 to size do
  begin
    for j := 1 to size do
      Write(x[i, j]:3);
    Writeln;
  end;
end;
 
procedure Sum_and_Mul(x: matrix; size: byte; var s, p: integer);
//процедура вычисления суммы и произведения элементов главной диагонали
var
  i: byte;
  ss: integer;
  pp: integer;
begin
  ss := 0;
  pp := 1;
  for i := 1 to size do
  begin
    Inc(ss, x[i, i]);
    pp := pp * x[i, i];
  end;
  s := ss;
  p := pp;
end;
 
begin
  Create(a, 9);  //создаем массив А
  Create(b, 7);  //создаем массив В
  Writeln('Матрица A: ');
  Print(a, 9);   //Печатаем массив А
  Sum_and_Mul(a, 9, sum, mul);   //Вычисляем сумму и произведение
  Writeln('Сумма элементов главной диагонали = ', sum, ' произведение = ', mul); // и выводим результат
  Writeln;
  Writeln('Матрица B: ');
  Print(b, 7);  //Печатаем массив В
  Sum_and_Mul(b, 7, sum, mul);  //Вычисляем сумму и произведение
  Writeln('Сумма элементов главной диагонали = ', sum, ' произведение = ', mul); //и выводим результат
end.

var a,b:mtr;
    pa,sa,pb,sb:real;
begin
randomize;
matrix(a,9,pa,sa,'A');
matrix(b,7,pb,sb,'B');
end.

as