Сумма бесконечного ряда Опции

[groteur]

Здравствуйте, уважаемые :-)
Есть вот такой вот попросик...
Имеется ряд E= (-1)^N * X^2N / (2N)!
N=1
Так вот, надо определить с заданной точностью, а именно, с точностью cos(X) сумму бесконечного ряда.
Сам то алгоритм вычисленния данной суммы мне понятен, но вот с синтаксисом,а может и не только, есть проблемы

Код

program sum_besc_ryad;
uses
    crt;
const
    pi=3.14;
    lim=cos(x);
var
    n:integer;
    x:integer;
    sum:real;
    eps:real;
begin
    repeat
    ClrScr;
    Writeln ('Please, enter epsilon:');
    Readln (eps);
    Writeln ('Eps = ', Eps:8:6);
    Writeln;
    If (Eps<=0) or (Eps>=1)
    then
        begin
            Writeln ('bad epsilon (eps>1 or eps<0)');
            Readln;
        end;
    until (Eps>0) and (Eps<1);

    n:=0;
    x:=?;
    sum:=0;

    n:=n+1;

Это небольшие наброски. Как мне установить в const моё значение точности cos(x) ?И вообще, если не сложно, помогите доработать программу.
Надеюсь, вы мне поможете :-)