Type
 {Структура описывает элемент списка}
 PListRec=^TListRec;
 TListRec=Record
   Key:Integer;   {Ключ}
   Item:String;    {для удобства возбмём элементы спсиска - строки}
   Next:PListRec  {Следующий элемент}
 End;

{Бредовая функция, но преподы её любят. Создаёт пустой список.
Мы будем обозначать список Nil'ом}
Function List_Create:PListRec;
Begin
 CreateList:=Nil
End;

{Добавляет элемент Item с ключом Key в список List}
Procedure List_Add(Var List:PListRec;Key:Integer;Item:String);
Var
 p:PListRec;
Beign
 New(p);
 p^.Key:=Key;
 p^.Item:=Item;
 p^.Next:=List;
 List:=p
End;

{Очищает список освобождая всю память}
Procedure List_Clear(Var List:PListRec);
Var
 p:PListRec
Begin
 While List<>Nil Do
 Begin
   p:=List^.Next;
   Dispose(List);
   List:=p
 End
End;

{Проверяет, есть ли элемент с ключом Key в списке. Если есть, то возвращает указатель на элемент списка с этим ключом, иначе - Nil}
Function List_Contains(Key:Integer;List:PListRec):PListRec;
Var
 p:PListRec;
Begin
 p:=List;
 While p<>Nil Do
   If p^.Key=Key Then
   Begin
     Contains:=p;
     Exit
   End
   Else
     p:=p^.Next;
 Contains:=Nil
End;

{Доработанная функция List_Add, которая проверяет, есть ли элемент с таким ключом в списке. Если есть, то изменяет его значение, иначе добавляет его.}
Procedure List_Set(Var List:PListRec;Key:Integer;Item:String);
Var
 p:PListRec;
Begin
 p:=Contains(Key);
 If p=Nil Then
   Add(List,Key,Item)
 Else
   p^.Item:=Item
End;

 DrawBorder();
 PrintTitle();

Uses CRT;

.......

DrawBorder();
{Создаём окно. Теперь весь текст будет выводится не на всём экране, а вот только в этом окошке. Координаты его должны быть внутри рамки.}
Window(Left,Top,Right,Bottom);
PrintTitle();

.....

End.

Type
 {Элемент дерева}
 PTreeItem=^TTreeItem;
 TTreeItem=Record
   Item:String;          {Значение}
   Left:PTreeItem;     {Левая ветвь}
   Right:PTreeItem    {Правая ветвь}
 End;

{Ещё одна тупость для преподов}
Function Tree_Create:PTreeItem;
Begin
 Tree_Create:=Nil
End;

{Освобождение памяти}
Procedure Tree_Free(Var Tree:PTreeItem);
Begin
 If Tree=Nil Then
   Exit;
 Tree_Free(Tree^.Left);
 Tree_Free(Tree^.Right);
 Dispose(Tree);
 Tree:=Nil
End;

{Добавление элемента}
Procedure Tree_Set(Var Tree:PTreeItem;Key:String;Item:String);
Begin
 If (Tree=Nil) Then
 Begin
   New(Tree);
   Tree^.Left:=Nil;
   Tree^.Right:=Nil;
   Tree^.Item:=''
 End;
 If (Key="")
   Tree^.Item:=Item
 Else
   If Key[1]="1" Then
     Tree_Set(Tree^.Left,Copy(Key,2,255),Item)
   Else
     Tree_Set(Tree^.Right,Copy(Key,2,255),Item)
End;

{Для удобства может понадобиться ф-ция перевода числа в строку}
Function IntToStr(n:Integer):String;
Var
 Result:String;
Begin
 Str(n,s);
 IntToStr:=Result
End;

{А процедура перевода списка в дерево будет выглядеть примерно так...}
Function Convert(List:PListRec):PTreeItem;
Var
 Result:PTreeItem;
 p:PListRec;
Begin
 Result:=Tree_Create;
 p:=List;
 While p<>Nil Do
   Tree_Set(Result,IntToStr(p^.Key),p^.Item);
 Convert:=Result
End;

Var
 n:Integer;
 f:Text;
 s:String;
 Tree:PTreeItem;
Begin
 Assign(f,"Input.Txt");
 Reset(f);
 n:=1;
 Tree:=Tree_Create;
 While Not Eof(f) Do
 Begin
   ReadLn(f,s);
   Tree_Set(Tree,IntToStr(n),s);
   Inc(n)
 End;
 Close(f)
End.

Var
 n:Integer;
 s:String;
 Tree:PTreeItem;
Begin
 n:=1;
 Tree:=Tree_Create;
 While Not Eof(f) Do
 Begin
   ReadLn(s);
   If s="end" Then
     Break;
   Tree_Set(Tree,IntToStr(n),s);
   Inc(n)
 End
End.