Отсортировать каждую компоненту в файле по возростанию сумм пар чисел

program contr2;
        uses crt;
        const n=10;
        type mas=array[1..n] of integer;
             fmas=file of mas;
        var f1,f2 :fmas;
            a :mas;
            i,j :integer;
 
procedure FILE_SOZD;
          begin
               rewrite(f1);
               For i:=1 to random(3)+3 do begin
                   For j:=1 to n do
                       a[j]:=random(21)-5;
                   write(f1,a);           end;
               close(f1);
          end;
 
procedure FILE_VIV(var f:fmas);
          begin
               reset(f);
               while not eof(f) do begin
                     read(f,a);
                     For i:=1 to n do
                         write(a[i]:3);
                     writeLn;       end;
               close(f);
          end;
          
procedure FILE_SORT;
          begin
          
          end;
 
BEGIN clrscr; randomize;
readkey;
        assign(f1,'file1.int'); assign(f2,'file2.int');
        FILE_SOZD;
        writeLn('File f1:'); FILE_VIV(f1);
        FILE_SORT;
        writeLn('File f2:'); FILE_VIV(f2);        
 
readkey;
END.

//Ñîçäàòü ôàéë f1, ãäå êàæäàÿ êîìïîíåíòà - ìàññèâ èç n ÷èñåë(n-÷åòíî).
//Îòñîðòèðîâàòü êàæäóþ êîìïîíåíòó â ôàéëå ïî âîçðîñòàíèþ ñóìì ïàð ÷èñåë.
//Oòñîðòèðîâàííûå êîìïîíåíòû çàïèñàòü â íîâûé ôàéë f2. Âûâîä ôàéëà f1 è f2 îôîðìèòü â âèäå ïðîöåäóðû.
//------------------------------------------------------------------------------
program contr2;
        uses crt;
        const n=10;
        type mas=array[1..n] of integer;
             fmas=file of mas;
        var f1,f2 :fmas;
            a :mas;
            i,j,k,h :integer;
 
procedure FILE_SOZD;
          begin
               rewrite(f1);
               For i:=1 to random(3)+3 do begin
                   For j:=1 to n do
                       a[j]:=random(21)-5;
                   write(f1,a);           end;
               close(f1);
          end;
 
procedure FILE_VIV(var f:fmas);
          begin
               reset(f);
               while not eof(f) do begin
                     read(f,a);
                     For i:=1 to n do
                         write(a[i]:3);
                     writeLn;       end;
               close(f);
          end;
 
procedure FILE_SORT;
          begin
          reset(f1); rewrite(f2);
          while not eof(f1) do begin
              read(f1,a);
              for j:=4 to 10 do begin
                  i:=4;
                  while (i<=10)do begin
                       if (a[i-3]+a[i-2]>a[i-1]+a[i]) then begin
                                            k:=a[i-3];
                                            h:=a[i-2];
                                            a[i-3]:=a[i-1];
                                            a[i-2]:=a[i];
                                            a[i-1]:=k;
                                            a[i]:=h;
                                                           end;
                       i:=i+2;
                                  end;
                                end;
              write(f2,a);
                               end;
          close(f1); close(f2);
          end;
 
BEGIN clrscr; randomize;
readkey;
        assign(f1,'file1.int'); assign(f2,'file2.int');
        FILE_SOZD;
        writeLn('Ôàéë 1:'); FILE_VIV(f1);
        FILE_SORT;
        writeLn('Ôàéë 2:'); FILE_VIV(f2);
 
readkey;
END.