ReadLn после "assign" и "close", Что с ним? :) Опции

[ApTeMoHnv]

При использовании в своём коде ReadLn'а (удивительно, да? ), он работает, как нужно (неожиданно.. ). Как только я вписал кодик для того, чтобы создавался файл (либо вынимались данные из уже созданного), естественно со всеми assign, rewrite/reset, close, как положено, то обычная функция ReadLn (даже без дополнительных параметров типа readln(f,1)) вообще превращается в нечто для вылетания ошибки. Компиляции проходят успешно, но когда до этого ReadLn'а доходит в самой программе, то выдаёт ошибку 104: File not open for input. Нет, это я конечно понимаю, если бы я вставил этот РидЛн после "ассигна", не написав при этом "реврите/ресет" и не закрыв, то можно было бы согласиться с этой ошибкой. Но по какой причине он ко мне припирается в данном случае? о_0 Тем более ошибка "Файл не открыт для ввода", а функция Readln (прочитать), а не Writeln (записать). Что это за беспредел вообще?
Кстати, если писать просто "Read;", а не "ReadLn;", то всё нормально.. Но я хочу именно ReadLn... =\
Юзаю обычный Turbo Pascal досовский
Спасибо за внимание.

[volvo]

А теперь, что называется "вопрос на засыпку". Каков будет результат запуска двух следующих программ:

1)

var X: integer;
begin
  assign(input, 'a.txt'); rewrite(input);
  write(input, 'just a test');
  close(input);
  read(X);
end.

2)

var X: integer;
begin
  assign(input, 'a.txt'); rewrite(input);
  write(input, 'just a test');
  close(input);
  read;
end.

(не запуская программ, естественно)? Не забываем, что Read/Write НЕ являются процедурами (хотя Турбо-Паскалевские доки упорно утверждают обратное)...