Отсортировать массив в файле по возрастанию первой цифры

const f_in = 'input.txt';
      f_t = 'temp.tmp';
var f, g: text;
    c: char;
    s: string;
begin
  assign(f, f_in);
  assign(g, f_t);
  rewrite(g);
  for c := '0' to '9' do
    begin
      reset(f);
      while not eof(f) do
        begin
          readln(f, s);
          if (length(s) > 0) and (s[1] = c) then writeln(g, s)
        end
    end;
  close(f);
  close(g);
  erase(f);
  rename(g, f_in)
end.

const f_in = 'input.txt';
      f_out = 'output.txt';
var f, g: text;
    c: char;
    s: string;
    i, n, k: integer;
begin
  assign(f, f_in);
  rewrite(f);
  repeat
    write('Введите количество чисел: ');
    readln(n);
    if n <= 0 then writeln('Количество чисел должно быть больше 0, повторите ввод.')
  until n > 0;
  writeln('Введите ', n, ' целых чисел:');
  for i := 1 to n do
    begin
      write(i:2, ': ');
      readln(k);
      writeln(f, k)
    end;
  writeln('Исходный файл:');
  reset(f);
  for i := 1 to n do
    begin
      readln(f, k);
      write(k:10)
    end;
  writeln;
  assign(g, f_out);
  rewrite(g);
  for c := '0' to '9' do
    begin
      reset(f);
      while not eof(f) do
        begin
          readln(f, s);
          if (length(s) > 0) and (s[1] = c) or
             (length(s) > 1) and (s[1] = '-') and (s[2] = c)
            then writeln(g, s)
        end
    end;
  reset(g);
  writeln('Отсортированный файл:');
  reset(g);
  for i := 1 to n do
    begin
      readln(g, k);
      write(k:10)
    end;
  writeln;
  close(f);
  close(g);
  write('Нажмите <Enter> для выхода из программы');
  readln
end.