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

uses crt; vari,j,s,n,k: integer; beginclrscr; writeln ('vvedite chislo'); readln (n); for i: =2 to n-1 dobegink: =0; for j: =2 to i-1 doif i mod j=0 then k: =1; if (k=0) and (n mod i=0) thenbeginwrite (i,'); s: =s+1; end; end; writeln; writeln ('Chislo delitelii=',s); readln; end.