Moderator entry

type
  Player = class
  private
    Name: string;
    SpSy: string;
  end;

label 1, 2;

var
  P := new Player;
  W: string;

begin
  P.SpSy := '>';
  Println('[][][]');
  Println('Loading.');
  Println('Loading finished.');
  Println('Language: russian.');
  1: Print(P.SpSy, 'Как мне вас называть? >');
  Readln(P.Name);
  Println(P.SpSy, 'Здравствуйте, ', P.Name, '.');
  2: Print('Хотите открыть консоль? Напишите "Да" или "Нет". >');
  Readln(W);
  case W of



    'Да':
      begin
        println('...Открываю консоль...');
        println('Введите "//Сменить имя", что-бы сменить свое имя');
        println('Введите "//Сменить приветствие", что-бы сменить символ, который бот ставит перед своей речью');
        readln(W);
        case W of
          '//Сменить имя': goto 1;
          '//Сменить приветствие':
            begin
              readln(P.SpSy);
              println(P.SpSy, 'Так то лучше');
              goto 2;
            end;
        end;


      end;
    'Нет': println('Ща не откроем эту консоль!');




  else
    begin
      println('вы должны написать либо "Да", либо "Нет"!');
      goto 1;


    end;
  end;




end.