Копирование текстового файла. Ошибка Опции

[ast]

Программа должна переписывать содержимое одного текстового файла в другой.

Код

var s,g: string;
     t,f: text;
     c: string;

begin
readln(s);
assign(t,s);
reset(t);
readln(g);
assign(f,g);
reset(f);


while not eof(t) do
begin
readln(t,c);
writeln(f,c);

end;
end.

[Altair]

reset для тектовых файлов открывает на чтение.
а ты записывать хочешь:

writeln(f,c);

не выйдет... надо не ресетом файл новый октрывать (тем более его нет), а реврайтом

rewrite(f);

[ast]

Спасибо. Ещё нужно дописать

Код

...
close(t);
close(f);
...

в конце.

М

само собой Altair