Anonymní profil Honza – Programujte.com

Ahoj, 
udělal jsem takový jednoduchý program na rozložení čísla na prvočinitele. Nevím ale, jak ten výsledek, který se mi vypíše zapsat do souboru. Napadlo mě z celého algoritmu udělat funkci typu string a tu pak zapsat do souboru, ale nedaří se mi to. Mám asi trochu zmatek v parametrech funkce a proměnných programu.

program rozklad;

var
  N,J: integer;
  prvni: boolean;

begin
  writeln('Zadejte prirozene cislo: ');
  read(N);

  write (N '=');
  J:=2; prvni:=true;
  
  while N>1 do
      begin
        while (N mod J)=0 do
               begin
               if prvni=true then begin write(J); prvni:=false end
               else write ('*',J);
               end;
           J:=J+1;
         end;
end.

Možná to jde udělat nějak jednodušeji, nevím, každopádně budu rád za jakékoli rady :) (P.S: programování není úplně můj obor, tak prosím o nějaké jednodušší vysvětlování :D )
Díky, Honza