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

[Vergilius]

Ок, это понятно. Только вот программа выводит пустую строчку.

[alex_fcsm]

Введите такую строку например
aaa bbbbbb uioiu djsfh

[Vergilius]

Задание немного другое. Необходимо найти слова, состоящие не из одинаковых букв, а из повторяющихся. Например, abba - будет являться искомым словом, также как и papa, deed, sss. А слово fyfyk не будет являться искомым, так как буква k в нем содержится один раз.

[alex_fcsm]

Сообщение от Vergilius

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

Это как понимать???

[Vergilius]

То есть слово geged не подходит, так как необходимо, что бы все буквы слова повторялись не менее одного раза.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,j,n:integer;
    a:array[1..100] of string;
    flag:boolean;
    
function Al(x:string;m:integer):boolean;
var l:integer;
    vvv:boolean;
begin
vvv:=false;
for l:=1 to  length(x) do
 if (a[i][l]=a[i][m]) and (l<>m) then vvv:=true;
Al:=vvv;
end;


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:=1 to length(a[i]) do
  if not(Al(a[i],j)) then flag:=false;
if flag then writeln(a[i]);
end;

end.

[Vergilius]

Спасибо огромное

[alex_fcsm]

В следующий раз приводите пример во избежание недопонимания