Процедура

[nex 9119]

Процедура, которая ищет в массиве, переданное в параметре процедуры, слово и выводит набор индексов массива совпадающих элементов.

[rubius2008]

выводит набор индексов массива совпадающих элементов

procedure sovp(a:mas);
begin
  for i:=1 to n do 
    for j:=1 to n do if (i<>j) and (a[i]=a[j]) then writeln(i:4,j:4);
end;

n - в константах указать надо, если нет то добавить еще один входной параметр в процедуру.
mas - в типах описать как array [1..n] of нужного типа.

Про слово непонятно.