Подпрограммы: Заменить элементы главной диагонали на произведение положительных элементов противоположной матрицы

uses crt;
 
const maxn = 50;
 
type ar = array [1..maxn,1..maxn] of integer;
 
var a1,a2: ar;
    n1,n2: integer;
    pr1,pr2: longint;
 
{--------------------------------------------------------------------}
procedure vvod2m(var a: ar; var n: integer; name: string);
var i,j: integer;
begin
writeln(name);
write('Kolichestvo elementov: '); readln(n);
writeln('Vvedite massiv:');
for i := 1 to n do
 begin
 for j := 1 to n do
  read(a[i,j]);
 readln;
 end;
writeln;
end;
{--------------------------------------------------------------------}
procedure vivod2m(const a: ar; n:integer; name: string);
var i,j: integer;
begin
writeln(name);
for i := 1 to n do
 begin
 for j := 1 to n do
  write(a[i,j]:4);
 writeln;
 end;
writeln;
end;
{--------------------------------------------------------------------}
function prPol(const a: ar; n: integer): longint;
var i,j: integer;
    bylo: boolean;
begin
bylo := false;
prPol := 1;
 
for i := 1 to n do
 for j := 1 to n do
  if a[i,j] > 0 then
   begin
   prPol := prPol*a[i,j];
   bylo := true;
   end;
 
if not bylo then prPol := 0;
end;
{--------------------------------------------------------------------}
procedure zamenaDiag(var a: ar; n,chislo: integer);
var i: integer;
begin
for i := 1 to n do
 a[i,i] := chislo;
end;
{--------------------------------------------------------------------}
 
begin clrscr;
vvod2m(a1,n1,'Massiv nr.1');
vvod2m(a2,n2,'Massiv nr.2');
vivod2m(a1,n1,'Massiv nr.1 do preobrazovania');
vivod2m(a2,n2,'Massiv nr.2 do preobrazovania');
pr1 := prPol(a1,n1);
pr2 := prPol(a2,n2);
zamenaDiag(a1,n1,pr2);
zamenaDiag(a2,n2,pr1);
vivod2m(a1,n1,'Massiv nr.1 posle preobrazovania:');
vivod2m(a2,n2,'Massiv nr.2 posle preobrazovania:');
readkey; end.