Pascal proszę o pomoc, Proszę o szybką pomoc Opcje

[efect1]

witam mam program który z liczb od 1 do 1000 wypisuje liczby doskonałe

CODE

program liczba ;
uses crt;
var i,j,suma:word;
l:array[1..1000] of word;
begin

clrscr;

for j:=1 to 1000 do
begin
l[j] := j;
suma:=0;

for i:=1 to l[j]-1 do
begin
if l[j] mod i = 0 then
suma:= suma+i;
end;

if suma=l[j] then
writeln('liczba to:', l[j]);

end;

readkey;

end.

Co zrobić aby program nie bazował na tablicach tylko na zawykłych zmiennych