Positivo e negativo

program posit_negat;
uses crt;
  function verif(num: integer):boolean;
  begin
    if (num>0) then verif:=true
    else verif:=false;
  end;
  var num: integer;
      msg: string;
  begin
    clrscr;
    writeln ('digite um numero');
    readln (num);
    if (verif(num)=true) then msg:='positivo'
    else
      if (verif(num)=false) then msg:='negativo';
    writeln ('O numero digitado foi:', num ,', ele e: ', msg);
    readkey;
  end.