Разложить данное число на простые множители Опции

[Artem7]

Вот как бы код написал но почему то не не правильно работает при больших 'n' и вроде в подпрограмме что то не так(((Надо сделать с подпрограммой (у меня она находит простые числа)

Program razlochenie;
Var n,i,j,k,l,pr,zp:longint;
Procedure prostie;
Begin
   For i:=3 to j do
   For k:=1 to j do
   begin
   if i mod k = 0 then l:=l+1;
   if l=2 then pr:=i;
   end;
   j:=j+1;
   l:=0;
End;
Begin
   write('Введите число n');readln(n);
   pr:=2;j:=4;l:=0;
   write(n,'=');
   While n<>1 do begin
   if (n mod pr = 0) then begin
   n:=n div pr;
   Write(pr,'*');
   end else
   Prostie;
   end;
   readln;
End.