Ввести число 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.