Найти все делители натурального числа n. решить через процедуру и функцию в паскале, помогите плиз

Program pr;
uses crt;

Var
i,n:integer;

  Procedure   del(a:integer);
  Var i:integer;
Begin
i:=1;

  while (a div i0) do
  Begin
  if (a mod i=0)
  then  Writeln(i);
  i:=i+1;
  end;

end;


Begin
Writeln(Vvedite chislo);
readln(n);
del(n);
readln;
end.