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

[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.

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

[Eichhorn]

Только я не понимаю почему он не открывается... Я и переписывать файл пробовала, и пересохранять программу пробовала(кстати, после того как она мне ошибку выдаст, я не могу пересохранить этот файл. Приходится заводить новый и всё туда перекопировать)