итерационные циклы

Var
  Epsilon : real;
  x, h, Element : real;
  sum, y, yk : real;
  n:integer;
 
 
procedure  getelem( var elem:real);
         begin
         elem:= elem*(-1)* x * x / (4 * 2* n * (2 * (n - 1)));
         end;
 
 
 
function getsum(x:real):real;
         var sum:real;
        begin
        sum:=0;
        Element := x / h;
        n := 1;
              while abs(Element) > abs (sum) * Epsilon do
              begin
          sum := sum + Element;
              inc(n);
             { Element := Element*(-1)* x * x / (4 * 2* n * (2 * (n - 1)));}
             getelem(Element);
 
              end;
        getsum:=sum;
        end;
 
begin
     Epsilon:= 1e-7;
     h :=2/6;
     writeln (' x    n    y   (y - yk)');
     x := 0;
     while x <=2 do
       begin
           y := getsum(x) {sum;};
           yk := sin (x);
           writeln (x:5:2, ' ', n, ' ' , y:5:2, ' ' , (y - yk):8);
       x := x + h;
       end;
 
readln;
end.