Бот на языке PascalABC

[Alex_Gold]

Можете сделать так чтобы бот на неизвестный ему вопрос или предложение говорил "Мне пока, что не известна эта формулировка слов".
Вот код:
uses crt;
var
i, n, lang, language:integer;
a, name, namep:string;
version:real;
procedure true_and_false(true1: integer);
begin
var t,f:integer;
t:= 0;
f:= 1;
if (true1 = t) then writeln('Julia:yes')
else if (true1 = f) then writeln('Julia:no')
end;
procedure imy();
begin
if (language = 1) then
if (namep = 'User') then
begin
namep:= 'User';
end
else
begin

name := 'Julia';
end

else if (language = 0 ) then
begin
if (namep = 'User') then
begin
namep:= 'Пользователь';
end
else
begin

name := 'Юля';
end;
end;
end;

begin
Version:= 0.1;
namep:= 'User';
name := 'Julia';
language := 0;
if (language = 1) then
begin
writeln(name ,':Hello my master!');
delay(2000);
writeln(name ,':Say with my, please!');
delay(2000);
end
else if (language = 0) then
begin
writeln(name ,':Привет мой создатель!');
delay(2000);
writeln(name ,':Поговори сомной,Пожалуйста!');
delay(2000);
end;
repeat
imy();
write(namep,':');
readln(a);
if (language = 1) then
begin
case a of
'language': begin
writeln('Русский(0)');
writeln('Inglish(1)');
write(namep ,':');
readln(lang);
case lang of
1:begin
write('language-inglish');
language:= 1;
end;
0:begin
writeln('Язык-Русский');
language:= 0;
end;
end;
end;
'Hi','hi': writeln(name ,':I have greeted.');
'you a man?','You a man?': true_and_false(1);
'write name','name write': begin
write('name: ');
readln(namep);
end;
'clouse','exit','cs','bye','good bye','gb':begin
writeln(name ,':good bye!');
read;
exit;
end;
'Who you?':begin
writeln('');
end;
end;
end
else if (language = 0) then
begin
case a of
'Версия программы':writeln(version);
'Язык','язык': begin
writeln('Русский(0)');
writeln('Inglish(1)');
readln(lang);
case lang of
1:begin
write('language-inglish');
language:= 1;
end;
2:begin
writeln('Язык-Русский');
language:= 0;
end;
end;
end;
'Ку','Привет','привет': writeln(name ,':Я уже здаровалась!');
'Ты мужчина?','ты мужчина?': true_and_false(1);
'Напиши имя','Имя напиши','имя напиши','напиши имя': begin
write('Имя: ');
readln(namep);
end;
'закрыть','выход','вх','пока','всег о хорошего','до свидания!','до свидания','До свидания','До свидания!':begin
writeln(name ,':До свидания!');
read;
exit;
end;
P.S:Сделайте пожалуйста без масивов