надо найти в этом массиве 4 наибольших и записать их в текстовый файл

[radiokarazinec]

procedure TfrmMain.Button1Click(Sender: TObject);
var
 // число точек в исходных данных и в результатах
 In_N : Integer;
 // массив с исходными данными
 In_Data: array of Double;
 // переменная для записи в файл
DataFile : TextFile;[/QUOTE]
 // переменная цикла
 i: Integer;
 // линия для графика - если нужна
 Line : TLineSeries;
begin
 // получение числа точек в исходных данных с формы
 In_N := 35;
 ////////////////////////////////////////// In_N :=StrToInt(edValN.Text);
 // получение параметра - пример
 ///////////////////Scale := StrToFloat(eScale.Text);
 // создаем массив данных
 // вначале задаем размер массива
 SetLength(In_Data,In_N);
 // задаем элементы массива
 for i := 0 to In_N - 1 do
     In_Data[i] := Cos(i*In_N)*Exp(-i*0.44)+1;
   MemoOut.Clear;
 // и покажем новые
 for I := 0 to In_N - 1 do
     // Format() - преобразование числа в строку по указанному
     // формату. Подробнее и с примерами в справке Delphi - F1.
     MemoOut.Lines.Add(Format('%8.3f',[In_Data[i]]));
 // *** добавим график - если нужно
 // уберем старый график
 ChartMain.SeriesList.Clear;
 // создадим новый
 Line := TLineSeries.Create(ChartMain);
 // присвоим значения Y координат
 Line.AddArray(In_Data);
 // изменим цвет и толщину линии
 Line.LinePen.Color := clBlue;
 Line.LinePen.Width := 1;
 // и выведем на форму
 ChartMain.AddSeries(Line);
 // свяжем переменную с файлом DataFile
AssignFile(DataFile,'in.txt');
 // откроем для записи
Rewrite(DataFile);
 // запись параметров
 Writeln(DataFile);   //стояло еще (,Scale)
 // размер массива чисел
 Writeln(DataFile,In_N);
 // каждое значение пишем в новую строку
 for i := 0 to In_N - 1 do
 Writeln(DataFile,In_Data[i]);
//закрываем файл - сохраняем его
 CloseFile(DataFile);
 DeleteFile('out.txt');

end;

Перед тем как сохранять в текстовый файл надо найти 4 максимальных элементов, не сортируя, а так как они есть в массиве, и эти 4 сохранить в тестовом, как это сделать. ПОМОГИТЕ пожалуйста