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

[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 будет содержать номер ошибочного слова (если ноль - ошибки нет).

[Lapp]

А вот так будет красивее)). И без лишней переменной i.

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);

[Djeyms]

Спасибо за помощь ...
А как это будет выглядеть в блок схеме?

[Гость]

А можно блок схему выложить?

[Lapp]

А можно блок схему выложить?

Я не умею. Не обучен((

[Гость]

Вроде разобрался, но мне надо что бы, он выдовал ни только номер слова в котором ошибка, но еще и номер буквы в котором ошибка.
Спасибо.

[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.