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

Program pr;
uses crt;

Var
i,n:integer;

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

  while (a div i<>0) 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.