Составьте программу упорядочения по возрастанию компонент целочисленного файла f — Pascal(Паскаль)

Program p1;

Type
  Vector = array [1 .. 1000] of integer;

var
  n, i: integer;
  f: text;
  cisla: Vector;

procedure Sorting(n: integer; Var x: Vector);
  procedure exchange(var a, b: integer);
  var
    c: integer;
  begin
    c := a;
    a := b;
    b := c;
  end;

var
  i: integer;
  swop: boolean;
begin
  repeat
    swop := false;
    for i := 1 to n - 1 do
      if x[i] > x[i + 1] then
      begin { esli "<" togda po ubivaniiu }
        exchange(x[i], x[i + 1]);
        swop := true;
      end;
    n := n - 1;
  until not swop;
end;

begin
  assign(f, 'f.txt');
  reset(f);
  n := 0;
  while not eof(f) do
  begin
    inc(n);
    read(f, cisla[n]);
  end;

  writeln('Uporyadochennye komponenty faila: ');
  Sorting(n, cisla); { SORTIRUEM }
  for i := 1 to n do
    writeln(cisla[i]);
  writeln('Rezulitat uporyadochivaniya perepisan v samom fayle - "f.txt" !!!');

  rewrite(f);
  for i := 1 to n do
    writeln(f, cisla[i]);

  close(f);
  readln;

end.