Как исправить ошибку? - PascalABC.NET

Program Chatbot;

var
    
  a, i, c: integer;
  name: string;
  Ctld: string;
  Otvet: string;
  Knigi: string;
  abc: string;

begin 

     writeln ('Привет, как тебя зовут?' );
   readln (name); 
     writeln (name, '? Красивое имя. Меня зовут Маджере. Я чат бот. Чат бот, это такой, как бы, ИИ, отвечающий на твои сообщения.');
     writeln ('Сколько тебе лет?');
   readln (a);
     writeln ('Ясно. Жаль, что я всего лиш комп и не имею возраста. Ну, ладно. Давай поговорим о тебе? Вот что ты любиш делать?');
   readln (Ctld);
     writeln ('А я вот люблю читать. А ты?');
   readln(Otvet);
   
     if Otvet = 'Да' then
      begin
       writeln ('Отлично! А что ты уже прочитал?');
       readln (knigi);
       writeln ('Интересно) А как ты думаеш, сколько книг я прочитал?');
            begin
            
             case i of
              1: writeln ('Нее, далеко не одну:)');
              2: writeln ('Больше');
              3: writeln ('Больше чем 3. Продолжай угадывать.');
              4: writeln ('Не');
              5: writeln ('Не');
              6: writeln ('Нееее)');
              end;
               begin
               If i>100 then
                 writeln ('Я компьюте, да, но все таки не так много.')
                 else
                  If i>7 then
                   writeln ('Ну, угадывай дальше. Подсказка, это число больше 10')
                    else
                     If i>20 then
                      writeln ('Не, меньше')
                       else
                        If i = 12 then 
                          writeln ('Да, ты угадал! Я прочитал 12 книг. Хочеш, скажу что это за книги?');
                            end;

                         end;                 
                                       
              end;
              end;

            end;   
   
     end  
      else
   
       if Otvet = 'Нет' then
         begin
            writeln ('Нет? :-( Ну, как знаеш. Слушай, а давай поиграем в какую нибуть игру? Напиши номер игры, в которую ты бы хотел поиграть,' name'.');
            writeln ('1 - Города. 2 - "15" ');       
             end;            
                                    
         end;
                  
end.