Сортировка чисел в файле.

program program1;
uses
    crt;
var
    f: text;
    arr: array[1..1000] of integer;
    len: integer;
    num: integer;
    i, j: integer;
    procedure swap(var a: integer; var b: integer);
    var
        buf: integer;
    begin
        buf := a;
        a := b;
        b := buf;
    end;
begin
    clrscr;
    assign(f, 'number.txt');
    reset(f);
    len := 0;
    while not eof(f) do
    begin
        read(f, num);
        inc(len);
        arr[len] := num;
    end;
    close(f);
    for i := 1 to len - 1 do
        for j := i + 1 to len do
            if (arr[i] > arr[j]) then
                swap(arr[i], arr[j]);
    assign(f, 'number.txt');
    rewrite(f);
    for i := 1 to len do
        write(f, arr[i], ' ');
    close(f);
    readkey;    
end.

program s1;
uses
  crt;
var
  f : file of integer;
  N, i, j, k : byte;
  a, max, b : integer;
begin
  clrscr;
  assign(f,'icxodnyi_file.dat');
  rewrite(f);
  write('Размер исходного файла : ');
  readln(N);
  randomize;
  for i := 1 to N do
    write(f,random(30)-15);
  writeln('Исходный файл : ');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      write(a:4);
    end;
  reset(f);
  read(f,a);
  max := a;
  for i := 1 to filesize(f) do
    begin
      seek(f,i-1);
      read(f,a);
      max := a;
      for j := i+1 to filesize(f) do
        begin
          seek(f,j-1);
          read(f,b);
          if b>max then 
            begin 
              max :=b; 
              k := j; 
            end;
        end;
      seek(f,i-1);
      write(f,max);
      seek(f,k-1);
      write(f,a);
    end;
  writeln;
  writeln('Содержимое файла по убыванию : ');
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      write(a:4);
    end;
  readln;
end.

Close(f);