Создание массива списков

{Создание индексных массивов
Создается 2 массива:
IndxF - различные фамилии
IndxB - списки книг с фамилиями IndxF[i].
Преобразуем фамилию в строку для сортировки}
procedure MakeIndx;
var p,tmp:spis;
    WTitleFIO:string[20];               { фамилия замечательного человека }
    i,j,z:integer;
    ffind:boolean;
begin
  p:=head;
  NIndx:=0;                             { кол-во разных фамилий }
  while(p^.sl<>nil) do begin            { обхожу базу }
    j:=1;
    WTitleFIO:='';                      { считывание фамилии замечательного человека }
    for i:=1 to 2 do begin
        while(p^.data.titleFIO[j]<>#32) do begin
            j:=j+1;
        end;
        j:=j+1;
    end;
    while(p^.data.titleFIO[j]<>#32) do begin
        WTitleFIO:=WTitleFIO+p^.data.titleFIO[j];
        if j=32 then break;
    j:=j+1;
    end;                                { WTitleFIO - фамилия замечательного человека }
    ffind:=false;
    for z:=1 to NIndx do begin      { проверяем присутствует ли фамилия в массиве с фамилиями }
        if IndxF[z]=WTitleFIO then begin    { если присутствует } 
            ip:=IndxB[z];               { задействуем книг список соотв. фамилии z }
            while(ip^.sl<>nil) do begin { доходим до конца списка }
                ip:=ip^.sl;
            end;
            ipn:=ip;
            new(ip);
            ipn^.sl:=ip;
            ip^.sl:=nil;
            ip^.data:=p;                { заносим книгу в список }
            { IndxB[NIndx]:=ip; }           { заносим список книг в массив }
            ffind:=true;                { считаная фамилия уже присутствует в массиве }
            break;
        end;
    end;
    if (ffind=false) then
        begin
            NIndx:=NIndx+1;             { увеличиваем счетчик фамилий }
            IndxF[NIndx]:=WTitleFIO;    { заносим фамилию в массив }
            new(ip);
            ip^.sl:=nil;
            ip^.data:=p;
            IndxB[NIndx]:=ip;           { заносим список книг в массив }
        end;
    p:=p^.sl;
  end;
    writeln('Индексация завершена');
    writeln('Нажмите Enter для продолжения');
    readln;
end;