Напишите рекурсивную функцию, котораяраскладывает число на простые

За 5 баллов программку факторизации естественных чисел? Спасибо, рассмешили...

Var n : integer;
function factorize(n : integer): integer;
var d : integer;
begin
  d := 2;
  while d * d lt;= n do begin
    if n mod d = 0 then begin
      write(d, '*');
      factorize(n div d);
      exit;
    end;
    d += 1;
  end;
  if n gt; 1 then write(n);
end;
begin
  writeln('Введите естественное число:');
  readln(n);
  factorize(n);
end.