Дано натуральное число. Найти все его делители и их сумму

uses crt;
var
n,i,sum:integer;
begin clrscr;
write('vvedite chislo: ');
read(n);
sum:=0;
writeln('deliteli: ');
for i:=1 to 999 do
if (n mod i)=0 then
 begin
  write(i,'  ');
  sum:=sum+i;
 end;
writeln;
writeln('summa vseh deliteley=',sum);
readkey;
end.

sum:=0;
for i:=1 to abs(a) do
if a mod i=0 then sum:=sum+i;

Uses
 CRT;
var
 i,n:integer;
 sum:longint;
Begin
write('Ââåäèòå ÷èñëî: ');
readln(n);
sum:=0;
for i:=1 to n do
 if n mod i=0 then
 begin
  write(i:3);
  sum:=sum+i;
 end;
writeln;
writeln('SUM:=',sum);
Readln
End.

var n, i, sum: integer;
begin 
readln(n);
sum := n;
writeln('Dividers: ');
for i := 1 to n div 2 do
  if (n mod i) = 0 then begin
    write(i,'  ');
    sum := sum + i;
  end;
writeln(n);
writeln('Sum - ', sum);
readln
end.

program delitel;
var i,n:integer;
sum:real;
begin
while i>n do
readln(n);
sum:=0;
inc(i);
if n mod i=0 then begin
sum:=sum+i;
writeln('Сумма делителей:=');
readln;
end;
end.

Program My5_222;
 Uses Crt;
 Var n,i,sum:LongInt;
 Begin
  ClrScr;
  WriteLn('Найти все делители и суммы делителей числа n.');
  WriteLn('Введите число n');
  ReadLn(n);
  sum:=0;
  For i:=1 To n Do
  Begin
   If n Mod i =0 Then
    Begin
     WriteLn('Делитель: ',i);
     sum:=sum+i;
    End;
  End;
  WriteLn('Сумма делителей числа ',n,' равна ',sum);
  WriteLn('Для для выхода из программы нажмите <Enter...>');
  ReadLn;
 End.

var
  i, x, y: integer;
  del, sum: real;
 
begin
  write('Введите число: ');
  read(x);
  write('Все делители числа: ');
  for i := 1 to x do
  begin
    y := x;
    if (y mod i = 0) then 
    begin
      del := y / i;
      write(del, ' ');
      sum := sum + del;
    end;
  end;
  writeln;
  write('Сумма делителей: ', sum);
end.