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

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