Ввести число n. Вывести количество его простых делителей. В паскале!

uses crt;

var

i, j, s, n, k:integer;

begin

clrscr;

writeln ('vvedite chislo') ;

readln (n) ;

for i:=2 to n-1 do

begin

k:=0;

for j:=2 to i-1 do

if i mod j=0 then k:=1;

if (k=0) and (n mod i=0) then

begin

write (i,' ') ;

s:=s+1;

end;

end;

writeln;

writeln ('Chislo delitelii = ', s) ;

readln;

end.