Вычислить значение функции y=x+4x-2 для всех ч от -2 до 2 с шагом 0,7

Вся формула вот она.program P1;uses
crt;
var
x,y : real;
beginclrscr;x := -1;writeln('');while x <= 1 do
beginy := 1/x+2;x := x + 0.1;
writeln(y