Помогите с файлами!

[fire_on]

пацаны! я не впаливаю, где у меня ошибка!
код:

program xxx;
var f:text;
s:string;
c:char;
BEGIN
readln(s);
assign(f,'d:\HPR.txt');
reset (f);
repeat
read(f,c) until
eof(f)=true;
write(f);
write(f,s);
close (f);
readln;
END.


Вот. и выдаёт он: error 105 file not ope for output.
Что не так?

[sheka]

Та ты, братан, влип, я те скажу! Ты б чисто для write; использовал перезапись файла rewrite; т.к. при использовании reset; можно только read. Догнал?

[Sazary]

Текстовые файлы процедура reset открывает только для чтения. Если хотите что-то добавить (судя по коду), используйте append.

[fire_on]

Спс. Работает.

[pro100-delphi]

Ага... Открыл файл для записи ваще...