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

[Djeyms]

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

[Lapp]

вот, смотри:

const
  n= 5;
  s: array[1..n]of string=('asdfgh','asdfgh','asdfgh','azfgh','asdfgh');

var
  e,i,j: integer;

begin
  e:=n-1;
  while (e>0)and(s[n]=s[e]) do Dec(e);
  if (e=n-1)and(s[n-1]=s[n-2]) then Inc(e);
  if e>0 then begin
    i:=(e mod n)+1;
    j:=1;
    while s[e][j]=s[i][j] do Inc(j);
    WriteLn('The mistake is in word ',e,', at a position ',j)
  end
  else WriteLine('No mistakes found')
end.