Сортировка простым выбором - Turbo Pascal (29843)

var f: text;
    g: file of integer;
    n, m: longword;
    t, nt, mt: integer;
    b: boolean;
begin
  writeln('+---------------------------------------+');
  writeln('| 1 - ввести элементы файла вручную     |');
  writeln('| Другое число - прочитать готовый файл |');
  writeln('+---------------------------------------+');
  write('Ваш выбор? ');
  readln(t);
  assign(f, 'input.txt');
  if t = 1
    then begin
      repeat
        write('Введите количество элементов файла: ');
        readln(m)
      until m > 0;
      writeln('Введите элементы файла:');
      rewrite(f);
      for n := 1 to m do
        begin
          write(n:3, ': ');
          readln(t);
          writeln(f, t)
        end
    end;
  reset(f);
  assign(g, 'temp.tmp');
  rewrite(g);
  while not eof(f) do
    begin
      readln(f, t);
      write(g, t)
    end;
  close(f);
  b := true;
  for n := 0 to filesize(g) - 2 do
    begin
      seek(g, n);
      read(g, nt);
      if not odd(nt)
        then for m := n + 1 to filesize(g) - 1 do
          begin
            seek(g, m);
            read(g, mt);
            if not odd(mt) and (nt > mt)
              then begin
                seek(g, n);
                write(g, mt);
                seek(g, m);
                write(g, nt);
                b := false
              end
          end
    end;
  if b then writeln('Сортировка не потребовалась');
  reset(g);
  assign(f, 'output.txt');
  rewrite(f);
  for n := 0 to filesize(g) - 1 do
    begin
      read(g, t);
      writeln(f, t)
    end;
  close(f);
  writeln('Отсортированный файл создан.');
  close(g);
  erase(g);
  write('Нажмите <Enter> для выхода из программы.');
  readln
end.