Program TreeCount;
TYPE
   tptr = ^TElem;
   TElem = RECORD
             str: STRING;
             j: byte;
             next: tptr;
           END;
   ukaz = ^uzel;
   uzel = RECORD
            name: STRING;     {имя вершины}
            left,right: ukaz; {сыновья}
            father: ukaz;       {отец в исходном дереве}
            urov: INTEGER;    {уровень исходного дерева, начиная с 0}
            Flag, bu: BOOLEAN;    {признак последнего сына}
          END;

VAR
   p2, t, kon, root, q, w: ukaz;
   k, m, Len: INTEGER;
   S, R: STRING;
   i: byte;
   F1: TEXT;
   a, b: STRING[20];
   key: CHAR;
   bu1, bu2, bu3, bu4, bu6: BOOLEAN;

BEGIN
   ASSIGN(F1,'INPUT.TXT');
   Reset(F1);
   New(root);
   root^.left := NIL;
   root^.right := NIL;  
   root^.father := NIL;
   READLN(F1, S);
   root^.name := S;  {Присваеваем значение первой строки корню}
   root^.urov := 0;
   bu1 := TRUE;
   root^.Flag := true; {признак последнего сына-для корня не обязательно}
   root^.father := NIL;  {отец}
   m := 0;             {уровень вершины}
   t := root;          {предыдущая вершина для следующей в файле}
   WHILE NOT EOF(F1)  
   DO
     BEGIN
       ReadLn(F1, S);
       k := 0;
       Len := Length(S);
         WHILE S[k+1] = '.'  
         DO
           k := k+1;   {k-уровень вершины, начиная с 0}
           R := Copy(S, k+1, Len-k);         {имя вершины}
           New(kon);
           kon^.name := R;
           kon^.left := nil;
           kon^.right := nil;
           kon^.urov := k;
           IF (k = 0) and (bu1 = true)  
           THEN
             BEGIN
               WRITELN('Ошибка!!! Обнаружено несколько деревьев!');
               readln;
               halt;
             END;
              IF k>m  
              THEN            {переход на следующий уровень}
                BEGIN
                  t^.left := kon;
                  kon^.father := t;
                  kon^.Flag := true;      {признак последнего сына}
                END
              ELSE
                IF k=m  
                THEN             {тот же уровень}
                  BEGIN
                    t^.right:=kon;
                    kon^.father:=t^.father; {отец тот же, что у брата}
                    t^.Flag:=false;     {снятие признака последнего сына}
                    kon^.Flag:=true;    {признак последнего сына}
                  END
                ELSE                    {подъем по дереву на m-k уровней}
                  BEGIN
                    p2:=t;
                    FOR i:=1 to m-k  
                    DO
                      p2:=p2^.father;
                     {p-предыдущая вершина того же уровня}
                      kon^.father:=p2^.father; {отец в исходном дереве тот же, что у брата}
                      p2^.right:=kon;
                      p2^.Flag:=false;     {снятие признака последнего сына}
                      kon^.Flag:=true;    {признак последнего сына}
                 END;
               m:=k;       {запомнили текущий уровень}
               t:=kon;     {для работы со следующей вершиной}
         END;          {конец While}
       Close(F1);

Writeln("Выберите:");
Writeln("1. Определить");
Writeln("2. Выход");

Writeln;
repeat
Readln(Key);
until ((Key = '1') or (Key = '2'));
Writeln;

CASE Key OF
  '1':BEGIN
        repeat
          writeln('Введите имя');
          readln(a);
        until a <> ' ';
        {search;}
        readln;
      {Halt}
      END;
  '2':BEGIN
      Halt
      END
END;

Readln;        
         
end.