Script bilangan prima dengan metode fungsi (pascal)

program bil_prima;

uses wincrt;

var

i, n, y, z, a :integer;

function prima (x : integer): integer ;

begin

  n:=0;

  for i:=1 to x do

  begin

    if x mod i = 0 then

    begin

     n:=n+1;

    end;

  end;

end;

begin

clrscr;

write('Bilangan = ');readln(z);

 for a := 1 to z do

 begin

   prima(a);

     if n=2 then

     begin

        writeln(a);

     end;

 end;

 readln;

end.