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

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

Программа вылетает потому что st переполняется. А это в свою очередь происходит потому, что процедурой Read надо пользоваться очень осторожно. Особенно когда в файле есть переводы строк (символы #13 и #10). Read будет бесконечно читать файл и возвращать пустую строку до тех пор, пока ты ReadLn-ом не прочтешь эти самые 2 символа... Очень аккуратно используй Read, если он тебе действительно необходим. Кстати, здесь, в этой задаче нужен именно ReadLn. Тогда программа не вылетает. Но и не выполняет задачу, потому что заданную строку на другую она не меняет.

Чтоб поменять - нужно перезаписать все строки в другой файл, по ходу заменив нужную на свое содержимое. А потом удалить старый файл и переназвать новый...