Textfile som argument er ulovligt

Dette er ulovligt:

prodedure WriteStuff(F: textfile; S: string);
begin
  writeln(F, S);
end;

Årsagen er at F (textfile) ikke kan anvendes som argument. Men hvad er løsningen såfremt det er ønskeligt med en separat funktion til formålet og en F som ikke er public?

I C er det jo så let... snøft.

Y.