Песни о Паскале

p^.mLink:= p2;       { поле mLink должно указывать на p2 }
p^.mNext:= p1^.mLinks; { указатель на следующий берем из заголовка }
p1^.mLinks:= p;       { заголовок указывает на новый узел }
end;
      { Процедура чтения графа из текстового файла }
procedure ReadData(var F: Text);
var C : Char;
p, q : PNode;
begin
Reset(F);
while not Eof(F) do begin
if not Eoln(F) then begin { если строка не пуста }
      Read(F, C);       { читаем имя страны }
      C:=UpCase(C);       { перевод в верхний регистр }
      p:= GetPtr(C);       { а может эта страна уже существует? }
      if not Assigned(p)
      then p:= MakeNode(C); { если нет, – создаем }
      while not Eoln(F) do begin { чтение стран-соседей до конца строки }
      Read(F, C);
      C:= UpCase(C);
      if C in ['A'..'Z'] then begin { если это имя страны, а не пробел }
      q:= GetPtr(C);       { проверяем существование страны }
      if not Assigned(q)       { если не существует, – создаем }
      then q:= MakeNode(C);
      Link(p, q);       { связываем страну p с q }
      end
      end
end;
Readln(F); { переход на следующую строку файла }
end;
Close(F);
end;
      { Процедура распечатки графа }
procedure ExpoData(var F: Text);
var p : PNode;
q : PLink;
begin
Rewrite(F);
p:= List; { начало просмотра списка стран (узлов) }
while Assigned(p) do begin
Write (F, p^.mName);       { название страны }
q:= p^.mLinks;       { начало просмотра списка соседей }
while Assigned(q) do begin
      Write(F, ' ', q^.mLink^.mName); { название соседа }
      q:= q^.mNext;       { следующий сосед }
end;
Writeln(F);       { конец строки }
p:= p^.mNext; { следующая страна }