Найти максимальный и минимальный элементы и умножить их

max:=1;
min:=1;
 for i:=1 to n do
  begin
   if a[i]>max then
    max:=a[i];
   if a[i]<min then
    min:=a[i];
  end;
 Writeln('Pr ',min*max);

max:=a[1];//отредактировано
min:=a[1];//отредактировано
//при условии что массив объявлен как a:array[1..n] of что_нибудь;
 for i:=1 to n do
  begin
   if a[i]>max then
    max:=a[i];
   if a[i]<min then
    min:=a[i];
  end;
 Writeln('Pr ',min*max);

const n=6;
var a:array[1..n,1..n] of integer;
   i,j,min,max:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-4;
     Write(a[i,j]:4);
    end;
   Writeln;
  end;  
Writeln;
min:=1;
max:=1;
 for i:=1 to n do
  for j:=1 to n do
   begin
    if a[i,j]>max then
     max:=a[i,j];
    if a[i,j]<min then 
     min:=a[i,j];
    end;
   Writeln('Min*max ',min*max);
  Readln;
 end.