Вычислить значение функции - Free Pascal (896)

Uses CRT;
type
  Func = Function (x: Real) : Real;
{----------------}
Procedure PrintFunc (XPos: Byte; F:Func) ;
{Осуществляет печать функции F . (XPos - горизонтальная позиция начала вывода) }
const
 np = 20; {Количество вычислений функций}
var
  х : Real; i : Integer;
begin {PrintFunc}
  for i := 1 to np do
begin
  x := i * (2 * pi / np) ;
GotoXY (XPos, WhereY) ;
WriteLn (x:5:3, F(x):18:5)
 end
end; {PrintFunc}
{-----------------}
Function Sin1(x: Real): Real; far;
 begin
  sin1 := (sin(x) + 1) * exp(-x)
 end;
Function Cos1(x: Real): Real; far;
 begin
  cos1 := (cos(x) + 1) * exp(-x)
 end;
{--------------- основная программа --------}
begin   ClrScr; {Очищаем экран}
 PrintFunc (1, sin1);
 GotoXY (1,1); {Переводим курсор в левый верхний угол}
 PrintFunc (40, cos1)
end.