двумерный массив в Deiphi

[timer16]

Всем привет...прошу решить мне задачку т.к. я не могу совладать с этими двумерными массивами
Заполнить массив 4*бесконечность(или очень многого 4 млн) по правилу

1 1 1 1
1 1 1 2
1 1 1 3
1 1 1 4
1 1 2 1
1 1 2 2
1 1 2 3
1 1 2 4
1 1 3 1
1 1 3 2
1 1 3 3
1 1 3 4
1 1 4 1
ну и т.д.

Заранее вам спасибо....при решении задачи прошу подписать важные строки алгоритма с обьясненим

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
    p:array[1..4] of byte;
    s:string;

   function whil:boolean;
   var i:byte;
   begin
      Result:=true;
      For i:=1 to 4 do
         Result:=Result and (p[i]=4);
   end;

begin
   Memo1.Clear;
   For i:=1 to 4 do
      p[i]:=1;
   while true do
   begin
      s:='';
      For i:=1 to 4 do
         s:=s+IntToStr(p[i])+' ';
      Memo1.Lines.Add(s);
      If whil then
         Break;
      p[4]:=p[4]+1;
      For i:=4 downto 1 do
      begin
         If p[i]>4 then
         begin
            p[i]:=1;
            p[i-1]:=p[i-1]+1;
         end;
      end;
   end;
end;

[min@y™]

конечное значение должно быть 4444?

[newerow1989]

Я думаю, да!