Дано целое чисто К (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.
Программа сначала запускается, а потом тут же вылетает с ошибкой...