Типизированные файлы

[topol789]

Рассматривая числа попарно, переставить пары по возрастанию их сумм. Затем удалить пару чисел, дающую сумму, равную введенному числу М. Если такой пары чисел нет, то сообщить об этом
Вот код сортировки и удаления, но выполняет неправильно. где ошибки?

procedure sort_f;
var i,j, x1, x2, l1, l2, s1, s2, n: integer;
begin i:=1;
reset(f1);
n:=filesize(f1);
while i<=n-4 do begin 
    seek(f1,i);
    read(f1,x1,x2);
    seek(f1,i+2);
    read(f1,l1,l2);
    s1:=x1+x2; s2:=l1+l2;
    if s1>s2 then begin 
    seek(f1,i); write(f1,l1, l2);
    seek(f1,i+2); write (f1,x1,x2);
    end;
   inc(i,2)
  end;
  VIVOD_FILE('рез-т ');
  end;
     
  
 procedure UDALM;
 var m, i, x1, x2, l1, l2:integer;
begin 
 write('M = ');readln(m);
 i:=1;
 seek(f1,i); read(f1,x1);
 seek(f1,i+1); read(f1,x2);
 while (i<=filesize(f1)-1)and(x1+x2<m) do inc(i,2);
 if (i<=filesize(f1)-1)and(x1+x2=m) 
  then
   begin
    write('после удаления суммы элементов ',i,'=',x1,' и ',i+1,'=',x2,' равной ',m,':');
   begin 
     seek(f1,i+2); read(f1,l1);
     seek(f1, i+3); read(f1,l2);
      x1:=l1; x2:=l2;
      write(f1, x1); write(f1, x2)
     end; 
    VIVOD_FILE(' ');
   end 
  else writeln('такой пары чисел нет');
 readln; 
end;