Задание функции (Pascal)

[k0tone]

Вот код программы разложения Sin(x) в ряд Тейлора...

program sin;
var x,y,fx,e,z,fakt:extended;
    i:integer;
begin
write('Vvedite x=');
readln(x);
write('Vvedite tochnost e=');
readln(e);
{x:=(pi*x)/180;}
 y:=x;
 fakt:=1;
 fx:=0;
 i:=0;
 z:=1;
while y/fakt>=e do
  begin
    fx:=fx+z*y/fakt;
    i:=i+2;
    y:=y*x*x;
    fakt:=fakt*(i+1)*i;
    z:=z*(-1);
  end;
writeln('znachenie sin(',x:6:6,')=',fx:6:6);
readln;
end.

мне нужно Sin(x) оформить функцией. Как это сделать кто-то может подсказать. Сколько раз не пробовал, выдаёт ошибки.(((
P.S. Напишите пожалуйста весь код, заранее благодарен.

[p51x]

Сколько раз не пробовал, выдаёт ошибки.(((

Как пробывали? Какие ошибки?

[Z1000000]

program sin;
var x,y,fx,fprev,e,z,fakt: real;
    i:integer;
begin
write('Vvedite x=');
readln(x);
write('Vvedite tochnost e=');
readln(e);
{x:=(pi*x)/180;}

 y:=x;
 fakt:=1;
 fx:=0;
 fprev:=x;
 i:=1;
 z:=1;

while  abs(fx - fprev) >= e do
  begin
    fprev := fx;
    fx:=fx+z*y/fakt;
    write(z*y/fakt,' ');
    write(fx,' ');
    i:=i+2;
    y:=y*x*x;
    write(y,' ');
    fakt:=fakt*i*(i-1);
    write(fakt,' ');
    z:=z*(-1);
    write(z,' ');
    writeln;
  end;

writeln('znachenie sin(',x:6:6,')=',fx:6:6);
readln;
end.