Внутренняя сортировка обменами для файла

procedure bubleSort(var a: Arr; var sr, sw: integer);
var
  i, j, sz,t: integer;
  fl: boolean:=false;
begin
  sz := a.Length - 1;
  (sr, sw) := (0, 0);
  i:=0;
  while (i<sz-1) and not fl do
  begin
    j:=0;
    fl:=true;
    while (j<sz-i) do
    begin
      inc(sr);
      if a[j] > a[j + 1] then begin
        t:=a[j];
      a[j]:=a[j+1];
      a[j+1]:=t;
        inc(sw);
        fl:=false;
      end;
      inc(j);
    end;
    inc(i);
  end;
end;

procedure fbubblesort(name:string);
var f:file of integer;
    a,b:integer;
begin
  assignfile(f,name);
  f.Reset;
  for var i:=f.Size-1 downto 1 do
  begin
    var fswap:=false;
    for var j:=0 to i-1 do
    begin
      f.Seek(j);
      read(f,a,b);
      if a>b then
      begin
        f.Seek(j);
        write(f,b,a);
        fswap:=true;
      end;
    end;
    if not fswap then break;
  end;
  f.Close;
end;
 
var f:file of integer;
    x:integer;
begin
  var name:='f.int';
  assignfile(f,name);
  f.Rewrite;
  randomize;
  var n:=20;
  for var i:=1 to n do
  begin
    x:=random(-20,20);
    write(x,' ');
    write(f,x);
  end;
  f.Close;
  writeln;
  fbubblesort(name);
  assignfile(f,name);
  f.Reset;
  for var i:=1 to f.Size do
  begin
    read(f,x);
    write(x,' ');
  end;
  f.Close;
  writeln;
end.