Очень нужна помощь на паскале со строками.

[Vergilius]

Дана строка. Необходимо найти слова, составленный только из повторяющихся букв. Заранее спасибо.

[Sasha_Smirnov]

Русских букв? латинских? немецких? украинских?.. любых?
И можно пример таких слов (Яя, ее, о-о-о — вот такие)?

[Vergilius]

Латинские.

[Sasha_Smirnov]

Nu yasno:-)

[Vergilius]

А мне нет! Хэлп(((((((((((((((((((

[alex_fcsm]

uses crt;
var s,sub:string;
    i,j,n:integer;
    a:array[1..100] of string;
    flag:boolean;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=1 to n do
begin
flag:=true;
 for j:=2 to length(a[i]) do
  if  a[i][1]<>a[i][j] then flag:=false;
  if flag then  writeln(a[i]);
end;
end.

[Vergilius]

if a[i][1]<>a[i][j] then flag:=false;

Что это значит?

[alex_fcsm]

Все буквы должны быть одинаковыми(то есть любая должна быть равна первой)

[Vergilius]

Мне незнакомо выражение

a[i][1]

.
И программа ничего не выводит.

[alex_fcsm]

a[i] - строка а a[i][j] - буква с индексом j