срочно подскажите мне!!!!

Дано целое число А. Если значение А > 0, то необходимо
увеличить его  на единицу. Разработать схему алгоритма для решения этой
задачи. Протестировать алгоритм для A=5, A=-4, A=0. сделать в паскале.


Программу я написала:

Program n1;
var A: real;
begin
readln (a);
if a>0
then a:=a+1;
writeln;
end.


правильно или нет? и какие у меня должны выходить значения?
если я 5 подставляю выходит 5, хотя по условию 5+1=6, разве нет??