programa par e impar

Program par_impar;
uses crt;
  function ver(num:integer):boolean;
  begin
    if (num mod 2 = 0) then ver:= true
    else ver:= false;
  end;
  var num: integer;
      msg : string;
  begin
    clrscr;
    writeln ('Digite numero');
    readln (num);
    while num <> 0 do
    begin
      if ver(num)= true then msg:='PAR'
      else
        if ver(num)= false then msg := 'ÖMPAR';
      writeln ('O numero digitado foi:', num, ', ele e:', msg);
      writeln;
      writeln ('Digite numero');
     readln (num);
   end;
   readkey;
end.