Составить программу табулирования функции y=|x-2|+|x+1| на отрезке [-4;4] с шагом 0.5 — Pascal(Паскаль)

program p1;
uses crt;
var
y,x:real;
begin
writeln('Введите число x');
readln(x);
repeat
 if (x>=-4) and (x<=4) then
      y:=(abs(x-2)+abs(x+1));
 writeln('y=',y:5:2);
 x:=x+0.5;
until
x>=4;
readln;
end.