Ошибка - Несовместимые типы(Delphi)

[Artemka9513]

Не обессудьте, сам понимаю,что задача легкая, но я только занялся программированием.
Компилятор delphi выдает ошибку Incompatible types и выделяет строчку
for x:=1 to 10 do k:=arctan(x/y)/(z+(x-y)*(x-y));

procedure TForm1.Button1Click(Sender: TObject);
var z, p, s, n, k, f: real;
    x,y: integer;
begin
     s:=0;
     z:=1.33;
     p:=1;
     for y:=2 to 7 do
     n:=sin(1/y*y+y+1)/sqrt(abs(y+ln(z)))+


            for x:=1 to 10 do k:=arctan(x/y)/(z+(x-y)*(x-y));
            p:=p*k;

     s:=s+n;
     label1.Caption:=  label1.Caption +#13+ 'f='+floattostr(s);
end;
end.

[Stilet]

n:=sin(1/y*y+y+1)/sqrt(abs(y+ln(z)))+

Что за "плюс" в конце?
Выражение не закончилось, а for начался.
циклы в паскале не умеют участвовать в выражениях.
Наверное вместо плюса нужна точка-запятая?

[Artemka9513]

Переправил все, но ответ не сходится с пакетом математика. В чем ошибся?Формула ниже:

procedure TForm1.Button1Click(Sender: TObject);
var z, p, s, m, k: real;
x,y: integer;
begin
s:=0;
z:=1.33;
p:=1;
for y:=2 to 7 do
begin
for x:=1 to 10 do k:=arctan(x/y)/(z+(x-y)*(x-y));
p:=p*k;
m:=sin(1/(y*y+y+1))/sqrt(abs(y+ln(z)));
end;
s:=s+m+p;
label1.Caption:= label1.Caption +#13+ 's='+floattostr(s);
end;

[evg_m]

k:=1; for x:=1 to 10 do k:=k*arctan(x/y)/(z+(x-y)*(x-y));

[Artemka9513]

Спасибо, все работает