Дано несколько одинаковых слов, в одном возможна ошибка. Опции

[Djeyms]

Помогите пожалуйста в написание кода ...
Задание звучит так:
Дано несколько одинаковых слов, в одном возможна ошибка. Найдите её.
Спасибо заранее !

[Lapp]

Дано несколько одинаковых слов, в одном возможна ошибка. Найдите её.

Как заданы слова?
Допустим, они содержатся в массиве строк s[1..n], при этом n>2. Тогда можно действовать примерно так:

i:=2;
while (i<=n)and(s[1]=s[i]) do Inc(i);
if i>n then e:=0 else if (i>2)or(s[1]=s[3]) then e:=i else e:=1;

После этого e будет содержать номер ошибочного слова (если ноль - ошибки нет).