Заполните массив случайными числами и найти два максимальных элемента массива и их номера

program qq;
const N=5;
var i, nMax, nMax2:integer;
var A:array [1..N] of integer;
begin
 writeln ('Массив:');
 for i:=1 to N do begin
  A[i]:=random(9)+1;
  write (A[i], ' ');
 end; 
 writeln (' ');
 
 nMax:=1;
 for i:=1 to N do
  if A[i]>A[nMax] then
   nMax:=i;
 writeln ('Максимальный элемент: A[', nMax, ']=', A[nMax]); 
 
 nMax2:=1;
 for i:=1 to N do
  if (i<>nMax) and (A[i]>A[nMax2]) then
   nMax2:=i;
 writeln ('Второй максимум: A[', nMax2, ']=', A[nMax2]);  
end.

program Project2;
var
n,max,min,nmax,nmin,i:integer;
a:array of integer;
begin
randomize;
  writeln('Введите размерность массива!');
  readln(n);
  setlength(a,n);
  for i := 1 to n do
    a[i]:=random(100)+1;
  write('Массив: ');
  for i := 1 to n do
  write(a[i],' ');
  writeln;
  max:=a[1];
  min:=a[1];
  for i := 1 to n do
    if max<a[i] then
    begin
      max:=a[i];
      nmax:=i;
    end;
  writeln('Максимальный элемент: ', max,' Номер: ', nmax);
  for i := 1 to n do
    if min>a[i] then
    begin
      min:=a[i];
      nmin:=i;
    end;
  writeln('Минимальный элемент: ', min,' Номер: ', nmin);
  readln;
  end.

program Project2;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
var
n,max,min,nmax,nmax2,nmin,i:integer;
a:array of integer;
begin
randomize;
  writeln('Введите размерность массива!');
  readln(n);
  setlength(a,n);
  for i := 1 to n do
    a[i]:=random(100)+1;
  write('Массив: ');
  for i := 1 to n do
  write(a[i],' ');
  writeln;
  max:=a[1];
  min:=a[1];
  for i := 1 to n do
    if max<a[i] then
    begin
      max:=a[i];
      nmax:=i;
    end;
  writeln('1-ый максимальный элемент: ', max,' Номер: ', nmax);
 
   max:=a[1];
 
   for i := 1 to n do
    if (max<a[i]) and (i<>nmax) then
    begin
      max:=a[i];
      nmax2:=i;
    end;
  writeln('2-ой максимальный элемент: ', max,' Номер: ', nmax2);
 
  for i := 1 to n do
    if min>a[i] then
    begin
      min:=a[i];
      nmin:=i;
    end;
 
 
  writeln('Минимальный элемент: ', min,' Номер: ', nmin);
  readln;
  end.

  if (i<>nMax) and (A[i] >= A[nMax2]) then