Помогите составить диалог с компьютером в Pascal.
При запуске программы компьютер:
1)спрашивает имя пользователя, здоровается с пользователем по имени.
2)спрашивает: "Сколько вам лет? "(На ответ от 1 до 6 - отвечает: "Ты еще совсем малыш")(от 7 до 17 - "Наверно ты учишься")(от 18 до 60 - :"Могу предположить что вы уже работаете")(от 61 до 125 - :"скорей всего вы уже на пенсии")( от 126 до 200- :"сомневаюсь, что вы еще живы")
3)спрашивает: "Какие отметки чаще всего бывали в вашем дневнике? "(На ответ 5 - отвечает: "Молодец")(4-:"Хорошо, но есть к чему стремиться")(3-:"Все, что не два уже хорошо")(2-:"Не ожидал такого от вас")
4)спрашивает: "Если у вас есть проблемы с геометрией, я могу помочь. Введите три числа, а я отвечу,, можно ли с ними построить треугольник. "предлагает любые три числа, если A B>C,A C>B, a B C>A: отвечает, что треугольник с такими сторонами построить можно, а это действие не выполняется: ты должен: треугольник с такими сторонами построить невозможно.
5)Говорит: "До свиданья (имя пользователя)

Программа и пример её работы - в прилагаемом файле.