Динамика Pascal

[bpystep]

Задание:

Предметный указатель организован как линейный список.
Каждая компонента указателя содержит слово и номера страниц, на
которых это слово встречается. Количество номеров страниц, относя-
щихся к одному слову, от одного до десяти.
Составить программу, которая обеспечивает:
-начальное формирование предметного указателя;
-распечатку предметного указателя;
-распечатку номеров страниц для заданного слова.
Программа должна обеспечивать диалог с помощью меню ,
ввод/вывод в окна и контроль ошибок при вводе.

Указание: использовать динамические структуры.

у меня несколько вопросов:
1) Указатель как нужно заполнять?
2) Что означает программа дожна обеспечивать диалог с помощью меню?

З.Ы. Если некоректно составил вопросы просьба поправить.

[bpystep]

program ukazatel;
uses crt;
type
 pnode = ^node; {указатель на список}
 node = record  {список}
  slovo:string;   {слово}
  nomer:integer;   {номер страницы}
  p:pnode; {указатели на следующий элемент списка}
 end;

{процедура создания списка}
procedure Create_List(var pBegin:pnode);
var
 pAux,pT:pnode;
 ch:char;
begin
 New(pBegin);
 pBegin^.p:=Nil;
 write('Введите слово: ');
 readln(pBegin^.slovo);
 write('Введите номер страницы: ');
 readln(pBegin^.nomer);
 pAux:=pBegin;
 writeln('Ввести данные об ещё одном автобусе? (y-да, n-нет)');
 ch:=readkey;
 while(ch<>'n') do
  begin
    New(pT);
    pAux^.p:=pT;
    pT^.p:=Nil;
    write('Введите слово: ');
    readln(pT^.slovo);
    write('Введите номер страницы: ');
    readln(pT^.nomer);
    pAux:=pT;
    writeln('Ввести данные об ещё одном автобусе? (y-да, n-нет)');
    ch:=readkey;
  end;
end;

{процедура печати списка}
procedure Print_List(pBegin:pnode);
var
 pAux:pnode;
begin
 pAux:=pBegin;
 writeln('№ Страницы Слово');
 while(pAux <> Nil) do
  begin
   writeln(pAux^.nomer:10,pAux^.slovo:13);
   writeln('----------------------------------');
   pAux:=pAux^.p;
  end;
end;

{процедура очистка списков}
procedure Free_List(var pAux:pnode);
begin
 if(pAux <> Nil) then
  begin
   Free_List(pAux^.p);
   if(pAux <> Nil) then
    begin
     Dispose(pAux);
     pAux:=Nil;
    end;
  end;
end;


var
 sp:pnode; {список}
 ch:char;
begin
 clrscr;
 sp:=Nil;
 Create_List(sp);
 repeat
  clrscr;
  writeln('1. Просмотреть список');
  writeln('2. Выйти из программы');
  ch:=readkey;
  case ch of
   '1': begin
         writeln('слово и страница: ');
         Print_List(sp);
         readkey;
        end;
 until(ch='2');
 Free_List(sp);
end.

вот начал писать код, но почему то выдаёт ошибку когда компилит вот эту строчку:

'1': begin
         writeln('слово и страница: ');
         Print_List(sp);
         readkey;
        end;

Кто нибудь знает почему?
Как привязать слово к странице, как написано в задании?