Программирование. 1 курс.

Есть задача: Подсчитать количество “счастливых” шестизначных автобусных билетов, т. е. таких, в номерах которых сумма первых трех цифр равна сумме трех последних.
Написал к ней алгоритм в делфи:

var
a,b,c,d,e,f:integer;
g:integer;
begin
g:=0;
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
for e:=0 to 9 do
for f:=0 to 9 do
if a+b+c=d+e+f then
g:=g+1;
Edit1.Text:=Inttostr(g);
end;

Но препод сказал, что надо использовать одномерный массив, а я не могу понять куда его можно всунуть, помогите: 33