пожалуйста помогите переделать программу. эта программа написана через цикл, а мне надо через функцию или процедуру. найти все делители натурального числа n.
вот сама программа[b][/b]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

Var n,i:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }

Write('vvedite chislo...');
Readln(n);
Write(' deliteli chisla',n,' : ');
i:=1;
while i<=n do
begin
if n mod i = 0
then Write(i,' ');
Inc(i);
end;
readln;
end.