Найти второй максимум в массиве

const
  n = 10;
var
  i, im1, im2: integer;
  a: array[1..n] of integer;
begin
  randomize;
  im1 := 1;
  im2 := im1;
  writeln('Массив A:');
  for i := 1 to n do
    begin
      a[i] := -30 + random(111);
      write(a[i]:4);
      if a[i] > a[im1] then
        begin
          im2 := im1;
          im1 := i
        end
      else 
        if a[i] > a[im2] then im2 := i
    end;
  writeln;
  if im2 <> im1 then writeln('Второй максимум: ', a[im2], ', его индекс: ', im2)
  else writeln('Массив состоит из равных элементов, второго максимума нет');
  readln
end.

const
  n = 10;
var
  i, im1, im2: integer;
  a: array[1..n] of integer;
begin
  randomize;
  im1 := 1;
  im2 := 0;
  writeln('Массив A:');
  for i := 1 to n do
    begin
      a[i] := -30 + random(111);
      write(a[i]:4);
      if a[i] > a[im1] then
        begin
          im1 := i;
          im2 := im1
        end
      else
        if (a[i] = a[im1]) and (im2 = im1) then im2 := i
    end;
  writeln;
  if im2 <> im1 then writeln('Второй максимум: ', a[im2], ', его индекс: ', im2)
  else writeln('В массиве только один максимум, второго максимума нет');
  readln
end.