Мне нужно составить программу определяющую являетьли ли число а положительным

Var
  a: real;
begin
  Read(a);
  if (a > 0) then
    Writeln('Число положительное')
  else
    Writeln('Число не положительное')
end.

Program Usloviya;
var a:integer;
begin
readln (a);
if (a>0) then write('Число положительное') ;
end.