С клавиатуры вводится число, определите положительное оно или отрицательное. По?

Program sign; var i: integer; begin write('Введите число: '); readln(i); if i>0 then writeln('Было введено положительное число') else writeln('Было введено отрицательное число'); end.