Решение задачи с использованием функции (Delphi)

[Мижорка]

С помощью функции решить задачу: Дан набор из 20 вещественных элементов. Найти количество элементов, содержащиеся между первым и вторым максимальным, если в наборе единственный максимальный, то вывести 0.

[studen]

Думаю, нужна переменная для максимума, две переменных для первого и второго максимального. В цикле сравниваем элемент с максимумом, если больше, записать его в максимум, номер записать в обе переменных для первого и второго. Если равен, то если номера 1го и 2го максимума равны, записать его(элемента) номер во второй. В конце вывести 2-й минус 1-й минус 1, а если равны, то максимум один, по заданию.
Цикл советую начать с 2, т.к. перед ним надо записать в максимум первый элемент и в оба номера единицу.

[Mad_Cat]

для Delphi XE2

program Project2;
{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

var
  набор: array [1 .. 20] of double;
  ГлобальныйИндекс: byte;

function ПервыйМаксимум: integer;
var
  индекс: integer;
  буфер: integer;
begin
  буфер := 1;
  for индекс := 2 to 20 do
    if набор[индекс] > набор[буфер] then
      буфер := индекс;
  ПервыйМаксимум := буфер;
end;

function ВторойМаксимум: integer;
var
  индекс: integer;
  буфер: integer;
begin
  буфер := ПервыйМаксимум;
  for индекс := буфер + 1 to 20 do
    if набор[индекс] = набор[буфер] then
    begin
      ВторойМаксимум := индекс;
      exit;
    end;
  ВторойМаксимум := 0;
end;

begin
  for ГлобальныйИндекс := 1 to 20 do
  begin
    набор[ГлобальныйИндекс] := random(50) - 25 + random(100) / 100;
    write(набор[ГлобальныйИндекс]:6:3);
  end;
  writeln;
  if ВторойМаксимум = 0 then
    writeln(0)
  else
    writeln(ВторойМаксимум - ПервыйМаксимум);
  readln;

end.