[s0Creator]

Прошу прощения, но хочу немного поправить.
В данном случае в файл выводятся наибольшие по порядку убывания.
Для вывода по порядку расположения предлагаю так

Код:

  MemoOut.Lines.Add('-----------------------');
  for j := 0 to In_N - 1 do
    for i := 1 to 4 do
    if maxn[i] = j then
    begin
      Writeln(DataFile, max[i]);
      MemoOut.Lines.Add(Format('%8.3f - %d', [max[i], maxn[i]]));
    end;

Если я правильно разобрался.