Паскаль. Обработать файл с числами.

[Asondo]

Задача в том, чтобы из файла в котором столбик чисел от 0 до 30, взять эти числа, и по схеме (в case все написано) перевести их в числа от 1 до 10. И столбик новых чисел саписать в другой файл.
У меня получается так, если в файле одна цифра. Вот код, как я думаю, чтобы сделать для стоблика цифр, но мне выдает ошибку. Помогите пожалуйста :3

program null;

var
  a: integer;
  t: text;

begin
  assign(t, 'input.txt');
  reset(t);
  repeat
    begin
      readln(t, a); 
      case a of
        0: a := 0;
        1: a := 1;
        2: a := 2;
        3..5: a := 3;
        6..8: a := 4;
        9..11: a := 5;
        12..13: a := 6;
        14..15: a := 7;
        16..17: a := 8;
        18..20: a := 9;
        21..30: a := 10;
      else writeln( 'lox');
      end;
      Close(t);
      assign(t, 'output.txt');
      rewrite (t);
      writeln(t, a);
    Close(t);
    end;
    Reset(t)
  until eof(t);
  Close(t);
end.

[VIK_aka_TOR]

Для каждого файла сделайте по переменной. И лучше не через repeat делать, а while. На случай если файл будет пустым.
Сейчас у вас: прочитал число, закрыл файл, записал в другой. Но при повторном открытии вы будете опять в самом начале файла. Итого зацикливание будет. Да и к тому же вы проверяете окончание файла записи, а не чтения.

[min@y™]

Ещё один гениальный копипастер 80-го уровня!

использование турбопаскакаля обязательно?
использование case обязательно?

[Serge_Bliznykov]

такой вариант устроит?

program null;

var
  a: integer;
  t, t2: text;

begin
  assign(t, 'input.txt');
  reset(t);
  assign(t2, 'output.txt');
  rewrite(t2);
  while not eof(t) do begin
      readln(t, a); 
      case a of
        0..2: begin end; {ничего делать не нужно}
        3..5: a := 3;
        6..8: a := 4;
        9..11: a := 5;
        12..13: a := 6;
        14..15: a := 7;
        16..17: a := 8;
        18..20: a := 9;
        21..30: a := 10;
      else writeln( 'lox');
      end;
      writeln(t2, a);
  end;
  Close(t);
  Close(t2);
end.