Табличный вывод!, забыл как делать Опции

[punkska]

необходимо вывести для 5 или больше значений X значение сходимости ряда

Program Lab0;
Uses crt;
{$F+}
 {SI global.inc}
 {SI func.inc}
 {SI inout.inc}
Begin
CLRSCR;
Writeln('Laba1');
Writeln('+--------------+');
Writeln('+--------------+');
Writeln('THE END.');
readln;
END.

func.inc

function Y(x: double): double;
const eps = 0.0000001;
var
  s, next: double;
  n: integer;
begin
  next := 1;
  s := next; n := 1;
  repeat
    inc(n);
    next := next*(n-1)*x/n;
    s := s + next;
  until (next) < eps;
  Y:= s
end;

как выводиться информация ввиде таблице в данном случае ?? можно ли функцию в виде параметра передовать? что-то совсем всё забыл(

[punkska]

НЕТ НЕ ВСЁ! =((((
в программе много поменял...проверьте
Не могу понять как передать функцию ввиде параметра..ФАК читал...вроде всё так сделал
Laba.pas

Program Lab1;
Uses crt;
{$F+}
 {$I global.inc}
 {$I func.inc}
 {$I inout.inc}
Begin
CLRSCR;
Writeln('Laba1');
Inc(n,A);
CLRSCR;
root(n,A,Y,Res);
root(n,A,Y2,Res2);
Out(n,A);
Writeln('THE END.');
readln;
END.

global.inc

Const eps=0.0001;  n=5;
Type mas = Array [1..n] of real;
     ftype = function (Var x:real):real;
 Var
  Res,Res2,A: mas;
  y,y2:ftype;

func.inc

function Y(x: real): real;
var
  s, next: real;
  n: integer;
begin
  next := 1;
  s := next; n := 1;
  repeat
    inc(n);
    next := next*(n-1)*x/n;
    s := s + next;
  until (next) < eps;
  Y:= s
end;

function Y2(x: real): real;
var
  s, next: real;
  n: integer;
begin 
  next := 1;
  s := next; n := 1;
  While (next) > eps do 
   Begin
    inc(n);
    next := next*(n-1)*x/n;
    s := s + next;
  end;
  Y2:= s
end;

inout.inc

 procedure Inc(var A:mas; n:integer);
 Var
   i:integer;
  begin
   for i:=1 to n do
    Begin
    Writeln('  Vvedite X[',i,']');
    readln(A[i]);
   end;
  end;



Procedure out(A:mas; n:integer);
var
   i:integer;
Begin
     Writeln('ЙННННННЛННННННННННННЛНННННННННННН»');
     Writeln('є','  X   ','є','     Y(x)   ','є','     Y2(x)  ','є');
     Writeln('МННННННОННННННННННННОНННННННННННН№');
     for i:=1 to (n-1) do
         begin
         Writeln('є',  A[i]:6:2 ,'є', Res[i]:12:5 ,'є', Res2[i]:12:5 ,'є');
         Writeln('МННННННОННННННННННННОНННННННННННН№');
     end;
     Writeln('є',  A[n]:6:2 ,'є', Res[n]:12:5 ,'є', Res2[n]):12:5 ,'є');
     Writeln('ИННННННКННННННННННННКННННННННННННј');
end;

procedure root(n:integer; A:mas; Y:ftype; Res:mas);
var
   i:integer;
   Begin
   for i:=1 to n do
       Res[i]:=Y(A[i]);
   end;
end;

Проблема возникла с функцией root и передачи в неё функций Y and Y2