"Суммирование рядов смешанного типа" Найти ошибку!

[maliyusha]

Здравствуйте,программисты ! Задача решена,но,к сожалению, не отлажена. Не могу найти ошибку Помогите исправить,если можно сегодня до полуночи,т.к. завтра необходимо сдать.
Вот программа:

Program summa;
Uses crt;
Var
x,e,s,k,x1,x2,y1:real;
i,n:integer;
function sum(i:integer):real;
begin
s:=0;
k:=1;
for i:=1 to n do
begin
k:=k*(-1)*((4*x*x)/((2*i-1)*(2*i)));
s:=s+k;
end;
sum:=s;
end;
begin
clrscr;
writeln ('vvedite n-index summirovania');
readln(n);
writeln ('vvedite tochnost');
readln(e);
x:=0.1;
j:=1;
repeat
repeat
x1:=sum(j);
x2:=sum(j+1);
{writeln (x1:7:9)}
until Abs(x1-x2)<e;
sum(i);
y1:=2*cos(x-1)*cos(x-1);
writeln (x:7:9,' ',sum(i):7:9,' ',' ',x2:7:9,' ',y1:7:9);
x:=x+0.1
until X>1;
readln;
end.


Заранее спасибо

[Sazary]

maliyusha
В коде особо не разбирался. Поменяйте

i,n:integer;

на

i,n,j:integer;

У меня компилится и что-то выводит.
Если результат неверен, то хорошо бы полное условие.

И, пожалуйста, заключайте код в тег CODE )

[maliyusha]

К сожалению,я не знаю как заключать код в тег CODE. Если можно, объясните.

[Sazary]

maliyusha
Очень просто: в окне редактирования сообщений есть кнопка "#"
Нажмите ее - появятся открывающий и закрывающий тег CODE. Между ними и вписывайте код.

[maliyusha]

Ясно,впредь так и буду поступать. Спасибо за отклик,программа работает и выводит верные результаты