В массиве хранится информация о максимальной скорости

procedure TForm1.Button1Click(Sender: TObject);
var
  m: array of integer;
  i: integer;
  max1, maxi1, max2, maxi2: integer;
  s: string;
begin
  Memo1.Lines.Clear; // Очистка Memo1
 
  SetLength(m, 40); // Задать размер (количество элементов) массива
  Randomize; // Инициализация генератора случайных чисел
  Memo1.Lines.Add('Массив:');
  s := ''; // очистить строку для значений элементов массива
  for i := 0 to High(m) do begin // Пройтись по всем элементам массива
    m[i] := 60 + Random(30); // Заполнение массива случайными числами от 60 до 90
    s := s + IntToStr(m[i]) + ' '; // Добавить элемент в строку с элементами массива
  end;
  Memo1.Lines.Add(s); // Добавить в Memo1 строку со значениями элементов массива
  Memo1.Lines.Add(''); // Добавить отступ для наглядности
 
  // Найти порядковые номера самых быстрых автомобилей
  max1 := 0;
  maxi1 := 0;
  max2 := 0;
  maxi2 := 0;
  for i := 0 to High(m) do begin// Пройтись по всем элементам массива
    if m[i] > max1 then begin // Если элемент массива больше, чем запомненое максимальное значение, то
      max1 := m[i]; // Запомнить новое максимальное значение
      maxi1 := i; // и номер этого элемента
    end; // Эта часть найдёт первое вхождение максимального элемента
 
    if m[i] >= max2 then begin // Если элемент массива больше или равно, чем запомненое максимальное значение, то
      max2 := m[i]; // Запомнить новое максимальное значение
      maxi2 := i; // и номер этого элемента
    end; // Эта часть найдёт последнее вхождение максимального элемента
  end;
 
  if maxi1 = maxi2 then // максимальный элемент всего один
    Memo1.Lines.Add('Номер самого быстрого автомобиля: ' + IntToStr(maxi1+1)) // Добавить результат в Memo1
  else begin// максимальных элементов несколько
    Memo1.Lines.Add('Номер первого самого быстрого автомобиля: ' + IntToStr(maxi1+1)); // Добавить результат в Memo1
    Memo1.Lines.Add('Номер последнего самого быстрого автомобиля: ' + IntToStr(maxi2+1)); // Добавить результат в Memo1
  end;
  // К индексам в ответе добавлена единица потому, что в жизни мы считаем с номера 1, а в массиве нумерация идёт с 0
end;