Табулирование функций, заданных в модуле

unit functii;
interface
type Func=function(x:real):real;//объявим тип - функция для процедуры
function F1(x:real):real;
function F2(x:real):real;
function F3(x:real):real;
function F4(x:real):real;
function F5(x:real):real;
implementation
{$F+}//раздел описания функций этого типа
function F1(x:real):real;
begin
F1:=sin(x);
end;
function F2(x:real):real;
begin
F2:=cos(x);
end;
function F3(x:real):real;
begin
F3:=x;
end;
function F4(x:real):real;
begin
F4:=x*x;
end;
function F5(x:real):real;
begin
F5:=x*x*x;
end;
{$F-}
end.

uses crt,functii;
procedure Tab(var f:text;Fn:func;a,b:real;m:integer);
var h,x,y:real;
    i:integer;
begin
clrscr;
assign(f,'file1.txt');
rewrite(f);
repeat
writeln('Введите границы интервала a<b:');
readln(a,b);
until a<b;
write('Количество точек m=');
readln(m);
h:=(b-a)/m;
for i:=0 to m do
 begin
  x:=a+i*h;
  y:=Fn(x);
  writeln(f,'x=',x:0:1,'  F(x)=',y:0:4);
 end;
close(f);
writeln('Данные записаны в файл TEXT,txt');
write('Press Enter...');
readln;
end;
var a,b,x,h,f:real;
    m,i:integer;
    t:text;
    w:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите вид функции:');
writeln('1-Y=sinx');
writeln('2-Y=cosx');
writeln('3-Y=x');
writeln('4-Y=x^2');
writeln('5-Y=x^3');
writeln('другое - выход');
readln(w);
case w of
'1':Tab(t,F1,a,b,m);
'2':Tab(t,F2,a,b,m);
'3':Tab(t,F3,a,b,m);
'4':Tab(t,F4,a,b,m);
'5':Tab(t,F5,a,b,m);
else exit;
end;
until not(w in ['1'..'5']);
end.