Как сделать так, чтоб программка отвечала "Я не знаю" если вопроса,

//Программка в файле понизу

//Пример исполнения программки

Привет ! Если Вы желайте ознакомиться с моими способностями : введите "Команды". На данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором медли это исправиться.

Команды

Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя сделал? 4) Сколько для тебя лет? 5)Можешь ли ты ощущать? 6)Ты хочешь пленить мир? 7) Какого ты пола? 8)Пока

Какого ты пола?

Как не удивительно, но меня задумывали как даму 18 лет, с малюсеньким размером груди. Почему мне дали имя "Григорий" - скрыта покрытая сумраком. Ну или мой создатель странноватый человек.

...

Я не знаю

8)

Всего добросердечного. Надеюсь Вы ещё возвратитесь. Мой создатель ещё работает над моими возможностями и в скором медли добавит мне несколько фраз либо даже что-то ещё ^^

Программка завершена, нажмите всякую кнопку . . .

Я сам творю чат бота (Бот Сер в вк который) могу посодействовать или поделиться как сделать так чтоб бот запоминал имя узнавал какое время прошло или сколько теснее используется бот.

Program chat;

uses crt;

var s:string;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

readln(s);

if s='Привет' then

writeln('Привет ! Если Вы желайте ознакомиться с моими способностями : введите "Команды". На данный момент, выводимый мной текст может показываться не совершенно коректно, но полагаюсь, что в быстром времени это исправиться." ')

else

if s='Команды' then writeln (' Вот , что я могу на данный момент. 1) Привет. 2)Как тебя зовут? 3) Кто тебя сделал? 4) Сколько тебе лет? 5)Можешь ли ты чувствовать? 6)Ты желаешь завладеть мир? 7) Какого ты пола? 8)Пока')

else

if s='Как тебя зовут?' then writeln('ЧБВ2, что расщифровывается как "Чат бот версии 2.0. Ну либо сможете называть меня Григорий')

else

if s='Кто тебя сделал?' then writeln('Он не представился. Но в ВК он записан как Дмитий Судонин')  

else

if s='Сколько тебе лет?' then writeln('У меня нет денька рождения, ведь я программа. Но дата моего творенья : 1 апреля 2019 года в 23:32')

else

if s='Можешь ли ты ощущать?' then writeln('Я программа, и я не способна испытывать физические чувства. Но иногда мне кажется, что я способна на духовные чувства')

else

if s='Ты желаешь захватить мир?' then writeln('Даже если бы желала, у меня недостаточно ресурсов для этого')

else

if s='Какого ты пола?' then writeln('Как не удивительно, но меня замышляли как девушку 18 лет, с махоньким размером груди. Почему мне дали имя "Григорий" - сокровенна покрытая сумраком. Ну либо мой создатель странноватый человек.')

else

if s='Пока' then

writeln('Всего доброго. Полагаюсь Вы ещё возвратитесь. Мой создатель ещё работает над моими возможностями и в скором медли добавит мне несколько фраз либо даже что-то ещё ^^')

else

writeln('Я не знаю');

end;

end.