Вот код, который у тебя записывает данные в файл
PHP код:
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');
Что за файл аут.тхт - не понятно, видимо то что ты привел, только часть кода. Ну не важно.
Вобщем сюда допиши еще сохранение массива, того о котором я писал.
Тоесть в мах[1,2,3,4] найдены макс числа, вот их и сохраняешь.
Не пойму что вызвало затруднения?