Вычислить значение гиперболического синуса - Turbo Pascal

uses crt;
var x,e,t,s:real;
    n:longint;
begin
clrscr;
write('x=');{вводим любое x}
readln(x);
write('e=');{вводим точнjсть вычислений, малое xисдо типа 0.000001}
readln(e);
n:=0;
t:=x;{нулевой член ряда}
s:=x;{сумма при n=0}
while abs(t)>=e do{пока очередной член больше точности}
 begin
  n:=n+1; {увеличиваем номер}
  t:=t*x*x/2/n/(2*n+1);{домножаем на x^2 и делим на факториал очередного нечетного числа}
  s:=s+t; {суммируем}
 end;
writeln('достигнутая точность=',abs(t):0:6,' сумма=',s:0:6);
writeln('аналитически=',(exp(x)-exp(-x))/2:0:6);
readln;
end.