Program faktor bilangan

program faktor_bilangan;

uses crt;

var bilangan,i,j,k: integer;
      faktor: array[1..100] of integer;

function jumfak(bil:integer):integer;
begin
        k:=0;
        for i:=1 to bil do if bil mod i = 0 then inc(k);
       jumfak:=k;
end;

begin
        clrscr;
        write('masukkan bilangan: '); readln(bilangan);

        j:=1;
        for i:= 1 to bilangan do begin
             if bilangan mod i = 0 then begin
                faktor[j]:=i;
                inc(j);
             end;
        end;

       writeln('jumlah faktor ',bilangan,': ',jumfak(bilangan));
       for i:= 1 to j-1 do writeln('faktor ke-',i,': ',faktor[i]);
end.