Pascal. Найти все делители числа N

[torah]

var N, i,t:longInt;


begin
writeln ('vvedite chislo');
readln (N);
writeln;
writeln ('delitel chisla');
i:=1;
t:= N;
while i<t do
begin
if (N mod i=0) then
begin
writeln (i);
t:= N div i;
writeln (t);
end;
 inc (i);
  writeln ('try:',i);   {<--- нужно это перебор сокращать делением.}


end;
readln;
end.

Нужно сделать так, чтобы перебор делителей сокращался ( уменьшить границу) . я прописываю деление на 2 в начале цикла, он сокращает, но если взять число 4, например, тогда такое сокращение не подходит. Что делать ?