Паскаль. Программа по вычислению по формуле не работает, пожалуйста исправьте. Почему?

[motivator]

program zad_4;
var
x,y:array [1..1000] of real;
m,k,i,n:integer;
S,b,p:real;
begin
s:=0;
b:=0;
p:=0;
readln (n,m);
for i:=1 to n do
begin
readln(x[i]);
end;
while k<m do
begin
readln(y[k]);
k:=1;
end;
for i:=1 to n do
begin
b:=b+sqr(sqr(sin(x[i])));
end;
while k<m do
begin
p:=p+cos(sqr(y[k]));
end;
s:=sqr(b)+p;
writeln(s);
end.

[type_Oleg]

П - это произведение, а не сумма.

 p:=1;
// ...
   p:=p*Cos(y[k]*y[k]);

[motivator]

Все равно ошибка.

[type_Oleg]

Вообще странный код:

while k<m do   //  это до m-1, а не до m
begin
 readln(y[k]);
 k:=1;            //  ????? всегда =1 ???
end;

И почему именно while, а не for ?

Кстати - Sin и Cos свои аргументы понимают как радианы.