Задача на файлы (Паскаль)

[Pihan]

Помогите мене дописать тока 1 цикл
Создать файл, где компонентой будет массив из N чисел (N - четно). Отсортировать в каждой компоненте числа по возрастанию сумм пар соседних чисел. Отсортированные компоненты записать в новый файл.

uses Crt;
const n=4;
type mas=array [1..n] of integer;
var f1: file of mas;
    f2: file of integer;
    sum,j,i,c,h: integer;
    x:mas;
begin clrscr;
    assign(f1,'f1f.mas');
    assign(f2,'f2f.sor');
    {$I-}
      reset(f1);
    {$I+}
      if ioresult<>0 then
        begin writeln('net_file_sozdaem');
            randomize;
            rewrite(f1);
repeat
  for i:=1 to n do
   x[i]:=random(50);
              write(f1,x);
                  writeln('sozdat_eshe?, Y/N');
until Upcase(readkey)='N';
close(f1);
reset(f1);
end;
sum:=x[i]+x[i+1];
writeln('file_f1');
 while not eof(f1) do begin
       read(f1,x);
         for i:=1 to n do
          
                                 
                                            
                                   
       write(f2,x);
      end;

вот скажите чо мне тут дописать нада плз

[Stilet]

Сортировку пузырьком ищи поиском по форуму. Обсуждалось.

[Pihan]

пузырек я могу сделать, проста мне бы понять что сортировать, как бы сумму найти тож могу, а дальше хз чо делать

[Stilet]

Как это что сортировать?
read(f1,x); ты сделал, вот и сортирь массив х

[Pihan]

да там закономерность типа нада, с индексом и суммой найти, я вот это не могу сделать

[Stilet]

ДЕлай еще один массив, в него записывай сумму пар:

for i:=1 to колво элементов-1 do
 массив2[i]:=массив1[i]+массив1[i+1]

и потом уж сортирь второй массив.

[Pihan]

спасибо, вроде дошло)