Искуственный интелект, Хелп Опции

[Костян]

Родилась идея создать нечто "Искуственного интелекта" для начала написал что то типа приветствия- вы вводите приветствие и если оно есть в массиве то комп отвечает если нет- то "ругается". Казалось бы все просто, но компилятор выдает ошибку- проверьте плиз. И еще, если у кого есть идеи как упростить, то пишите...

Код

program ii;
uses crt;
var privet:array[1..4] of string=(Hellow, Hie, Good evening, Good morhihg);
slovo: string;
begin
clrscr;
readln(slovo);
if slovo=privet[1]or privet[2] or privet[3] or privet[4]
then
writeln('Hellow to you to. What is you name');
else writeln('You didnt say hellow-YOU IS A BAD MAN');
readkey;
end.