ошибка в проге

[Olgaandsasha]

-задание

Program lr6a;
var
z,y:Real;
function sum(x:real):real;
var
s,p,q,z:real;
n:integer;
begin
s:=1;
p:=1;
for n:=1 to 15 do
begin
q:=x*(n*n+1)/((n*2)*(n*n-2*n+2));
p:=p*q;
S:=s+p;
end;
sum:=s;
end;
begin
z:=0.1;
while(z<=1.1) do
begin
y:=((((z+0.5)*(z+0.5)/4)+(((z+0.5)/2)+z+0.5))*exp((z+0.5)/2))/(cos((((z+0.5)/2)+(((z*z)/4)+(z/2)+z))*exp(z/2)));
writeln('y=',y:5:3);
y:=sum(z+0.5)/(cos((z+0.5)/2)+sum(z));
writeln('y=',y:5:3);
z:=z+0.2;
end;
readln;
end.

проверьте пожалуйста, она работает, но не правильно. в чем ошибка?

[Leshii]

Если можна, то желательно бы ещё суть задания в студию )
А что вам ваш компилятор по этому поводу пишет ? ( читать просто лень )