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

program jdhdg;
uses crt;
var a:array [1..10] of integer;
i,max,maxi:integer;
begin randomize;
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
write (a[i]:4);
end;
max:=a[1];
for i:= 1 to 10 do
if a[i]> max then max:=a[i];
writeln;
writeln ('max = ', max);
for i:= 1 to 10 do
if a[i]=max then maxi:=i;
writeln;
writeln('i = ', maxi);
end.

program p;
var a:array[1..10] of integer ;
v: array[1..10] of integer ;
i, j,k:integer ;
begin 
randomize ;
for i:= 1 to 10 do 
begin 
a[i]:= random (20)-10;
writeln(a[i]:4);
end ;
for i:= 1 to 10 do 
v[i]:=a[i];
for i:= 1 to 9 do 
for j:= i+1 to 10 do 
if a[i]>a[j] then 
begin 
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end ;
for i := 9 downto 1 do 
begin 
if a[10]>a[i] then 
k:=a[i];
break ;
end ;
writeln ;
for i:= 1 to 10 do 
if k=v[i] then 
begin 
write(i);
break;
end;
end.

uses crt;
var a: array [1..10] of integer;
    i, mi1, mi2: integer;
begin
  randomize;
  mi1 := 1;
  mi2 := 1;
  for i := 1 to 10 do
    begin
      a[i] := -99 + random(199);
      write(a[i]:4);
      if a[i] > a[mi1]
        then begin
          mi2 := mi1;
          mi1 := i
        end
        else if (mi2 = mi1) or (a[i] >= a[mi2]) then mi2 := i
    end;
  writeln;
  writeln('Второй по величине элемент: a[', mi2, '] = ', a[mi2])
end.