Помогите, пожалуйста! Вычислите значение функции y=(2+3x)/(cos x +1) если x изменяется

Var
  x,y:real;
begin
  x:=0;
  while xlt;=1 do begin
    Writeln('x=',x:3:1,', y=',(2+3*x)/(cos(x)+1));
    x:=x+0.2
    end
end.

Итог исполненья программы:
x=0.0, y=1
x=0.2, y=1.31308716034924
x=0.4, y=1.66574617359348
x=0.6, y=2.08180893911284
x=0.8, y=2.59325903278415
x=1.0, y=3.24611602602381