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

Program pr;uses crt;Vari,n:integer;  Procedure   del(a:integer);  Var i:integer;Begini:=1;  while (a div i<>0) do  Begin  if (a mod i=0)  then  Writeln(i);  i:=i+1;  end;end;BeginWriteln('Vvedite chislo');readln(n);del(n);readln;end.