Определить произведение двух самых больших чисел в одномерном массиве

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
function Prz(a:mas;n:integer):integer;
var i:integer;
    mx1,mx2:integer;
begin
if a[1]>a[2] then
 begin
  mx1:=a[1];
  mx2:=a[2];
 end
else
 begin
  mx1:=a[2];
  mx2:=a[1];
 end;
for i:=2 to n do
if a[i]>mx1 then
 begin
  mx2:=mx1;
  mx1:=a[i];
 end
else if a[i]>mx2 then mx2:=a[i];
Prz:=mx1*mx2;
end;
var a1,a2:mas;
    n1,n2,i:integer;
    p1,p2:integer;
begin
clrscr;
randomize;
repeat
write('Размер 1 массива до ',nmax,' n1=');
readln(n1);
until n1 in [1..nmax];
repeat
write('Размер 2 массива до ',nmax,' n2=');
readln(n2);
until n2 in [1..nmax];
writeln('1 массив:');
for i:=1 to n1 do
 begin
  a1[i]:=random(10)+1;
  write(a1[i]:4);
 end;
writeln;
p1:=Prz(a1,n1);
writeln('Произведение двух наибольших=',p1);
writeln('2 массив:');
for i:=1 to n2 do
 begin
  a2[i]:=random(10)+1;
  write(a2[i]:4);
 end;
writeln;
p2:=Prz(a2,n2);
writeln('Произведение двух наибольших=',p2);
if p1<p2 then write('В первом массиве произведение меньше')
else write('Во втором массиве произведение меньше');
readln
end.