Составить блок схему и программу определения переменной y по одной из формул x-1, если _ x ≤ -1 y= x, если _ -1 < x ≤ 1 x+1, если _ x > 1 аргумент х меняется в интервале от -5 до 5 с шагом 0,2. ps: где у= там скобка на три уравнения. , нужно!

Тут указан шаг, я так понимаю надо протабулировать y
var i,x, y :real;
begin
x:=(-5);
while (x<=5) do begin
  if x<=-1 then y:=x-1 else
  if x>1 then y:=x+1 else y:=x;
  writeln('x= ',x:3:2, ' y= ',y:3:2);
  x:=x+0.2;
  end;
end.