[lmikle]

Ну так у тебя в массиве уже есть заготовки для соотв. списков. Просто добавляй туда элементы.

Код:

procedure AddItemToList(var AList : PNode; AItem : Integer);
var
  NewNode : PNode;
  Head : PNode;
begin
  New(NewNode);
  NewNode.Data := AItem;
  NewNode.Next := Nil;

  If AList = Nil Then AList := NewNode
  Else
    Begin
       Head := AList;
       While Head.Next <> Nil Do Head := Head.Next;
       Head.Next := NewNode;
    End;
end;

...

var
  I : Integer;
  A :Array [1..5] Of PNode;

begin
  // На всякий случай обнуляем массив
  For I := Low(A) To High(A) Do A[i] := Nil;

  AddItemToList(A[1],2);
  AddItemToList(A[1],5);

  AddItemToList(A[2],1);
  AddItemToList(A[2],3);
  AddItemToList(A[2],5);

  AddItemToList(A[3],2);
  AddItemToList(A[3],3);

  AddItemToList(A[4],5);

  AddItemToList(A[5],1);
  AddItemToList(A[5],2);
  AddItemToList(A[5],3);
  AddItemToList(A[5],4);

...