m aiutate a scrivere questo programma

scrivi un programma ke dato un numero intero n calcoli la media dei divisori di N
codice:
uses
  SysUtils;
  var n:integer;
begin
   write('inserisci un numero interno n   ');
   readln(n);
   for n:= 0 to n do
      if (n mod n)=0
      then writeln();
   readln;
io ho ftt una cosa così ma i divisori nn so proprio km farli,,,

grz in anticipo