текстовый файл Опции

[Eichhorn]

Есть задача:
Дано целое чисто К (0<K<10) и текстовый файл, содержащий более К строк. Заменить в файле строку с номером К на строку S
Вот мой текст программы.

const
k=2;
var
f:text;
s:string;
st:integer;
put,a:string;
begin
  s:='mouse';
  st:=0;
  put:='C:\pas\jkl';
  assign(f,put);
  reset(f);
  while not eof(f) do
  begin
    read(f,a);
    st:=st+1;
    if st=k then
    a:=s;
    write(a);
  end;
  close(f);
  readln;
end.

Программа сначала запускается, а потом тут же вылетает с ошибкой...

[volvo]

И опять компилятор прав совершенно. Что такое ExitCode = 2? Это обычный виндовый ERROR_FILE_NOT_FOUND. Файла нет - вылетает ошибка и вместе с ней вся программа. Я смотрю, ты пытаешься обработать ошибку открытия? Только для этого надо отключить контроль ошибок ввода/вывода, ты этого не делаешь. Потому что {I-} и {$I-} - это разные вещи. У тебя - просто комментарий, а во втором случае - когда добавлен знак доллара - это уже директива компилятора.

И потом. Ну. допустим, отключила ты контроль. Дальше что? Reset вернул ошибку в IOResult, но программа работает дальше. Ты ж не обрабатываешь IOResult нигде, толку с того отключения? Просто взяла и заткнула программе рот, теперь она даже не будет сообщать об ошибках. Но если файл не открылся, а ты из него будешь читать - что произойдет?