Скажите пожалуйста, где ошибка? Задание звучит так: «Получить все простые делители числа»?

var n,i,k,count: integer;
begin
writeln('Введите натуральное число: ');
readln(n);
count:=0;
for i:=2 to n-1 do begin
                    if n mod i = 0 then begin
                                            for k:=1 to i-1 do
                                            if (i mod k = 0) then begin
                                              count+=1;
                                              if count<=2 then
                                                            writeln(i, ' ');
                                            end;
                                      end;
                         end;
                    
end.