Как сделать тест с редактированием и добавлением вопросов

[Stilet]

Какую ошибку?
И вообще, всем будет проще если ты свой код перепишешь:

for i:=0 to FileSize(F)-1 do
begin
 Read(F,s); 
 Write(Fi,s);
end;

И не надо там никаких Seek.