проблема с выводом в файл, помогите исправить или дайте идею Опции

[Ibmsystem]

вот значит прога считает функцию, значение можно вводить буквами pi/2 и т.д.
выводит на печать и на принтер(с испольсов модуля), но вот беда ника нехочет выводить в файл
помогите исправить (желательно предложить хоть какую нибудь идею до понедельника ).
да исчо там где непонятно написано типо Writeln(' Џа®Ја ¬¬  1 Ё§ Єгаб®ў®© а Ў®вл');
по идее русский язык выводится(се я сам исправлю).

Program da;
uses crt,FPrinter;

var x,a,b,h:real;
	Code,sr:integer;
	OK:boolean;
	ch,letter,key:char;
	f:text;
	xs,funcs:string;

Function Func(x:real):real;
var f:real;
Begin
f:=(sin(x)/cos(x))+cos(x);
Func:=f;
End;

Function Radian(s:string):real;
Var I:byte;
Begin
Radian:=0;
  if s='pi' then Radian:=pi;
  if s='pi/2' then Radian:=pi/2;
  if s='pi/3' then Radian:=pi/3;
  if s='pi/4' then Radian:=pi/4;
  if s='pi/5' then Radian:=pi/5;
  if s='pi/6' then Radian:=pi/6;
  if s='pi/7' then Radian:=pi/7;
  if s='pi/8' then Radian:=pi/8;
  if s='pi/9' then Radian:=pi/9;
End;

Procedure Vivod(ch:char);
begin
Assign(f,'c:\file.txt');
writeln('ch = ',ch);
 case ch of
  'e': writeln('ЇаЁ x=',x:4:2,' y=',func(x)
2);
  'p': begin
	str(x:3:3,xs);
	str(func(x)
3,funcs);
	PrnString('ЇаЁ x=');
	PrnString(xs);
	PrnString(' y=');
	PrnString(funcs);
	   end;
  'f': writeln(f,'ЇаЁ x=',x:4:2,' y=',func(x)
2);
 end;
end;

Procedure PrintFunc;
var  letter,f:char;
	 i,w,J,m:integer;
	 sa,sb:string;

begin
Writeln('		 ‚ўҐ¤ЁвҐ ­ з «(r) ¤Ё Ї §(r)­ : ');readln(sa);
Writeln('		 ‚ўҐ¤ЁвҐ Є(r)­Ґж ¤Ё Ї §(r)­ : ');readln(sb);
Writeln('				‚ўҐ¤ЁвҐ m: '); readln(m);

a:=radian(sa);
b:=radian(sb);
h:=(b-a)/m;
writeln(' a= ',a:3:3);
writeln(' b= ',b:3:3);
writeln(' m= ',m:3);
writeln(' h= ',h:3:3);
writeln('		Љ ЄЁ¬ жЁЄ«(r)¬ бзЁв вм? y=tg(x)+cos(x)?');
writeln('			   1-for; 2-repeat; 3-while.');
readln(letter);

Writeln('  „«п ўлў(r)¤  ­  нЄа ­ ­ ¦¬ЁвҐ - e, ­  ЇаЁ­вҐа - p,ў д (c)« - f');
Readln(ch);

case letter of
'1' : begin
	   x:=a;
	   writeln('Cikl FOR');
	   writeln;
	for i:=0 to m-1 do
	 begin
	  x:=a+h*i;

	  writeln('ЇаЁ x=',x:4:2,' y=',func(x)
3);
	 end;
	   end;

'2' :  begin
	writeln('Cikl REPEAT');
	writeln;
	i:=0;
	 repeat
	  x:=a+h*i;
	  writeln('ЇаЁ x=',x:4:2,' y=',func(x)
3);
	  i:=i+1;
	 until i>(m-1);
	   end;

'3' : begin
	   writeln('Cikl WHILE');
	   writeln;
	   i:=0;
	while i<=(m-1) do
	 begin
	  x:=a+h*i;
	  Vivod(ch);
	   writeln('ЇаЁ x=',x:4:2,' y=',func(x)
3);
	  i:=i+1;
	 end;
	  end;
end;
Readln;
end;

Procedure Yslovie;
begin
Clrscr;
{HighVideo;
Textattr:= yellow + 16 * blue;
Window(0,0,80,25);
GotoXY(30,9); }
Writeln('			   Џа(r)Ја ¬¬  1 Ё§ Єгаб(r)ў(r)(c) а Ў(r)вл');
{GotoXY(30,15);}
{TextColor(white);}
Writeln('				Ќ ¦¬ЁвҐ ўў(r)¤ ¤«п Їа(r)¤(r)«¦Ґ­Ёп');
readln;
writeln;
{HighVideo;
Textattr:= yellow + 16 * blue;
Window(0,0,80,25);
GotoXY(37,9);}
Writeln('						  ‡ ¤ ­ЁҐ');
{GotoXY(15,10);}
Writeln('	 ‘(r)бв ўЁвм Їа(r)Ја ¬¬г ¤«п Ї(r)¤бзҐв  f(x)= tg(x)+cos(x)');
{GotoXY(17,11);}
Writeln('		Ј¤Ґ x= x+h,Ј¤Ґ h=(b-a)/m (¤«п a=pi/2,b=pi)');
{GotoXY(30,24);  }
{TextColor(white);}

{TextAttr:=green + 16 * yellow;
GotoXY(30,11);
Window(0,0,80,25);}
end;

Procedure GoodBy;
begin
clrscr;
{GotoXY(35,10);
TextColor(Blue+Blink);}
writeln('„(r)бўЁ¤ ­Ёп');
{GotoXY(30,15);}
writeln('Ќ ¦¬ЁвҐ ўў(r)¤ ¤«п Їа(r)¤(r)«¦Ґ­Ёп');
readln;
end;

Begin
Yslovie;
{GotoXY(30,9);
TextColor(lightblue+Blink);}
{GotoXY(30,12);
TextColor(green+Blink);}
repeat
clrscr;
Assign(f,'c:\file.txt');
Reset(f);
 OK:=true;
 PrintFunc;
 clrscr;
{P GotoXY(30,3);
 TextColor(lightred+Blink);}
 if OK then writeln('Џ(r)ўв(r)аЁвм ўлзЁб«Ґ­Ёп?  y/n');
 key:=readkey;
Until key ='n';
GoodBy;
 close(f)
end.

[andriano]

assign только связывает имя файла с файловой переменной, а открывает файл на запись rewrite или append.