Задча с ошибкой

[X-REY]

Помогите исправить следуйщее ошибки в програме:
1) поменять режим открытия файла (с чтения на запись)
2) исправить процедуру printlines (считать строку с клавиатуры, записать ее в файл)

Прогама:

var
f:text;
s:string;
procedure printlines;
begin
readln(f,s);
writeln(s);
end;
begin
assign(f,'g');
reset(f);
while not (EOF(F)) do printlines;
close(f);
readln;
end.

[kuy]

1) место reset - rewrite

[Mad_Cat]

исправить процедуру printlines (считать строку с клавиатуры, записать ее в файл)

readln(s);Write(f,s);

1) место reset - rewrite

не обязательно с reset(f) тоже можно писать в файл