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

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 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.