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

[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]

Lab1.pas

Program Lab1;
Uses crt;
{$F+}
 {$I global.inc}
 {$I func.inc}
 {$I inout.inc}
Begin
CLRSCR;
Writeln('Laba1');
Writeln('+--------------+');
Inc(A);
Out(A);
Writeln('+--------------+');
Writeln('THE END.');
readln;
END.

func.inc

function Y(x: real): real;
const eps = 0.0001;
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;
const eps = 0.0000001;
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;

global.inc

Type mas = Array [1..5] of real;
 Var
  i: integer;
  A: mas;

inout.inc

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

{ procedure out(A:mas);
 Var
   i:integer;
  begin
   Writeln('X       Cymma P9IDA');
   for i:=1 to 5 do
   Writeln('X=',A[i],'    ',y(A[i]));
   readln;
 end;
}

Procedure out(A:mas);
 var
  i:integer;
 Begin
Writeln('╒══════╤══════════╤══════════╕');

for i:=1 to 5 do
 begin
Writeln('│', A[i]:4 ,'│', Y(A[i]):8 ,'│', Y2(A[i]):8 ,'│');
Writeln('╞══════╪══════════╪══════════╡');
 end;
Writeln('╘══════╧══════════╧══════════╛');
 end;

программа прерываеться после ввода данных и указывает на ошибку 205 в первой функции! помогите отладить программу!

ну наверно нужно из функций вычеркнуть EPS и записать строчку Const eps=0.00001; в глобал.inc

Действительно если епс перенести работает)))
тока таблица!!! кривая! помогите настроить чтоб красиво было