Ввести с клавиатуры число. вывести на экран знак числа (+1 если больше нуля, -1 если меньше нуля, 0 если равно нулю)

Program chisla;
uses crt;
var a:integer;
begin
Write(Введите число - );
readln(a);
If a>0 then
write(+1)
else begin
If awrite(-1)
else begin
If a=0 then
write(0)
else begin
end;
end;
end;
end.