Матрица и поиск эл-ов выше диагонали. Ввод второй матрицы.

[uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,l,k:byte;
    x,p:integer;
begin
clrscr;
repeat
write('Введите матрицы A от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(a[i,i])<abs(a[j,j]) then
 begin
  x:=a[i,i];
  a[i,i]:=a[j,j];
  a[j,j]:=x;
 end;
writeln('Первые три максимальных по модулю элемента матрицы:');
for i:=1 to 3 do
write(a[i,i]:4);
writeln;
writeln;
write('Нажмите Enter');
readln;
p:=1;k:=0;  {Вот тут не знаю как взять матрицу из 1 задания, чтобы по ней сделать 2 задание.}
 writeln('Матрица А из первого задания');  
     write(a[i,j]:3);
     if(j>i)and odd(a[i,j]) then
      begin
       k:=1;
       p:=p*a[i,j];
      end;
   writeln;
if k=0 then write('Выше глав. диагонали нет нечетных эл-ов')
else write('Произведение нечетных элементов выше главной диагонали=',p);
readln
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,l,k:byte;
    x:integer;
    p:longint;
begin
clrscr;
repeat
write('Введите размер матрицы A от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
writeln('Матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50)-25;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(a[i,n-i+1])<abs(a[j,n-j+1]) then
 begin
  x:=a[i,n-i+1];
  a[i,n-i+1]:=a[j,n-j+1];
  a[j,n-j+1]:=x;
 end;
writeln('Первые три максимальных по модулю элемента побочной диагонали:');
for i:=1 to 3 do
write(a[i,n-i+1]:4);
writeln;
writeln;
write('Нажмите Enter');
readln;
p:=1;k:=0;
writeln('Матрица А из первого задания');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:4);
    if(j<=n-i)and odd(a[i,j]) then
      begin
       k:=1;
       p:=p*a[i,j];
      end;
   end;
  writeln;
 end;
writeln;
if k=0 then write('Выше побочной диагонали нет нечетных эл-ов')
else write('Произведение нечетных элементов выше побочной диагонали=',p);
readln
end.