Применение подпрограмм(часть2)

[desnet]

Вычислить значение функции y=(sqrt(cos(z+1.3))/(cos(z)*cos(z)+cos(0.7)) на интервале [0.2;1.2] c шагом 0.2.Значение cos(x) вычислить как сумму ряда(я ее уже переделал на -x*x/((2*n+1)*(2*n+2))) с точностью е=0.0001.Проверить вычисление функции y,используя cos(x) как стандартную.
Исправте ошибки
program lab_6a;
var
q,x,y:real;
function sum(x:real):real;
var
p,s,pred,e:real;
n:integer;
begin
p:=0;
s:=0;
e:=0.0001;
n:=1;
repeat
pred:=p;
q:=-x*x/((2*n+1)*(2*n+2));
p:=p*q;
s:=s+p;
n:=n+1;
until(abs(pred-p)<=e);
sum:=s;
end;
begin
x:=0.2;
while(x<=1.2) do
begin
y:=(sqrt(cos(x)+0.27))/(cos(x)*cos(x)+cos(0.7));
writeln(y);
y:=(sqrt(sum(x)+0.27))/(sum(x)*sum(x)+sum(0.7));
writeln(y);
x:=x+0.2;
end;
readln;
end.