Найти все простые делители натурального числа N. Входные данные: Ввести одно число N (1

Var i,k,n,m: integer;
begin
  write(N = ); readln(n);
  m:=round(sqrt(n));
  i:=2; k:=1;
  repeat
    if (n mod i=0) then
    begin
      if ik then 
      begin
        write(i, );
        k:=i;
      end;  
      n:=n div i;
      m:=round(sqrt(n));
      i:=1;
    end;
    i:=i+1;
  until i>m;
  if kn then writeln(n);
end.   

N = 43021568
2 163 1031

N = 625
5 

N = 189756328
2 67 354023