Дано число y при вводе с клавиатуры числа x должно вывести ему равен y, если y=1, если х≥1. y=0 если -1

Var
 y, x : integer;
begin
  readln(x);
  if x >= 1 then
    y := 1
  else if (x > -1)  and (x < 1) then
    y := 0
  else if x < 0 then
    y := -1;
  writeln(y);
end