Positivo e primo

program positivo;
uses crt;
var i, cont:integer;
  function posit(num: integer):boolean;
  begin
    for i:= 1 to num do
    begin
      if ( num mod i = 0) then cont:= cont + 1;
      if (cont = 2 ) then posit:= true
       else posit := false;
    end;
   end;
   var num:integer;
    begin
      clrscr;
      writeln ('Digite o numero');
      readln (num);
      writeln ('O numero digitado foi:',num);
      writeln ('ele e primo?  ' , posit(num));
      readkey;
    end.