Найти произведение максимальных элементов массивов

var
  x,a:array [1..100] of integer;
  i,max1,max2,n,l1,l2,p:integer;
begin
  write('Ââåäèòå ðàçìåðíîñòü ìàññèâà : '); readln(n);
 
  writeln('Ââåäèòå ìàññèâ X : ');
  for i:=1 to n do
  readln(x[i]);
 
  writeln('Ââåäèòå ìàññèâ A : ');
  for i:=1 to n do
  readln(a[i]);
 
  max1:=-maxint;
  max2:=-maxint;
 
  for i:=1 to n do
    begin
    if x[i]>max1 then
      begin
      max1:=x[i];
      l1:=i;
      end;
    if a[i]>max2 then
      begin
      max2:=a[i];
      l2:=i;
      end;
    end;
p:=x[l1]*a[l2];
write('Ïðîèçâåäåíèå ìàêñèìàëüíûõ = ',p);
end.

program prg;
uses crt;
var a,b: array [1..10] of byte; i, max1, max2, element1, element2: byte;
begin
     Randomize;
     //çàïîëíÿåì ìàññèâ ÷èñëàìè îò 1 äî 10
     for i:= 1 to 10 do
     begin
          a[i]:= Random(10)+1;
          b[i]:= Random(10)+1;
     end;
     //âûâîäèì ìàññèâû
     WriteLn('Ýëåìåíòû ïåðâîãî ìàññèâà:');
     for i:= 1 to 10 do
         Write(a[i], ' ');
     WriteLn();
     WriteLn('Ýëåìåíòû âòîðîãî ìàññèâà:');
     for i:= 1 to 10 do
         Write(b[i], ' ');
     WriteLn();
     //âû÷èñëÿåì ìàêñ ýëåìåíòû ìàññèâîâ
     max1:= 0;
     for i:= 1 to 10 do
         if a[i]>max1 then
         begin
              max1:= a[i];
              element1:= i;
         end;
     max2:= 0;
     for i:= 1 to 10 do
         if b[i]>max2 then
         begin
              max2:= b[i];
              element2:= i;
         end;
     WriteLn('Ìàêñèìàëüíûé ýëåìåíò ïåðâîãî ìàññèâà = ', max1,' è íàõîäèòñÿ â ', element1,' ïîçèöèè');
     WriteLn('Ìàêñèìàëüíûé ýëåìåíò âòîðîãî ìàññèâà = ', max2,' è íàõîäèòñÿ â ', element2,' ïîçèöèè');
     WriteLn('Ïðîèçâåäåíèå ìàêñèìàëüíûõ ýëåìåíòîâ ìàññèâîâ = ', max1*max2);
end.