Описать функцию Sin1(x, ε)

uses crt;
function Sin1(x,e:real):real;
var s,t,ch,zn:real;
    i:integer;
begin
s:=x;{начальное значение функции(нулевой член ряда)}
ch:=x;{нулевое значение числителя члена ряда}
zn:=1;{то же знаменателя}
t:=ch/zn;{то же самого члена}
i:=1;{первый член}
while abs(t)>e do{пока очередной больше точности}
  begin
   ch:=ch*(-1)*x*x;{домножаем числитель на  -x^2}
   zn:=zn*2*i*(2*i+1);{домножаем знаменатель до очередного факториала}
   t:=ch/zn;{вычисляем очередной член}
   s:=s+t;{считаем сумму}
   inc(i);{увеличиваем счетчик}
 end;
Sin1:=s;{значение функции}
end;
var x,eps:real;
begin
clrscr;
eps:=0.0001;
write('x=');readln(x);
writeln('Приближенное значение  sinx=',Sin1(x,eps):10:8);
writeln('Аналитическое значение sinx=',sin(x):10:8);
readln
end.

var x,eps:real;
    i:byte;
begin
clrscr;
write('x=');
readln(x);
eps:=0.1;
for i:=1 to 6 do
 begin
  writeln('Приближенное значение  sinx= при eps=',eps:0:7,'=',Sin1(x,eps):10:7);
  eps:=eps/10;
 end;
end.