СРОЧНО!!!!!!!!!! ПОМОГИТЕ!

составить блок-схему нахождения всех делителей числа N. То есть вводим какое-то число N и программа выводит все целые числа, на которые это число делится.

Var k,N, i: longint; Begin write('Введите N: '); readln(n); i:=1; k:=0; While (i<=N) do  If (N mod i = 0) then   begin    write(i,' ');    inc(i);    inc(k);   end  else   inc(i); if k=2 then  writeln('Число простое.'); readln; End.