Сортировка символьных данных методом переноса в файле

type
  charfile = file of char;
 
procedure Sort(f: charfile);
var
  i, j, k: longint;
  c, m, t: char;
begin
  for i := 0 to FileSize(f) - 2 do
    begin
      seek(f, i);
      read(f, m);
      c := m;
      k := i;
      for j := i + 1 to FileSize(f) - 1 do
        begin
          read(f, t);
          if t < m then
            begin
              k := j;
              m := t
            end;
        end;
      if k > i then
        begin
          seek(f, k);
          write(f, c);
          seek(f, i);
          write(f, m)
        end
    end
end;
 
procedure Prn(s: string; f: charfile);
var
  c: char;
begin
  writeln(s);
  reset(f);
  while not Eof(f) do
    begin
      read(f, c);
      write(c)
    end;
  writeln
end;
 
const
  fname = 'char.txt';
var
  cf: charfile;
  s: string;
  i: integer;
begin
  writeln('Введите строку символов:');
  readln(s);
  assign(cf, fname);
  rewrite(cf);
  for i := 1 to length(s) do write(cf, s[i]);
  Prn('Файл:', cf);
  Sort(cf);
  Prn('Отсортированный файл:', cf);
  close(cf)
end.