Помогите с программой. На языке паскаль. [Спасибо! тема закрыта]

[rodya]

Вот эта программа.

" Среди заданных слов (слова сам задаешь) найти слова с двойными буквами (аа, вв, мм, и т.д ) и вывести их в порядке возростания их длин ."

Вроде не сложная, но понять не могу как найти двойную букву.

[coder]

a = a[i+1]

вывести их в порядке возростания

чего? вхождения в тексте, длины повтора ...

[rodya]

вывести их в порядке возростания их длин...т.е по длине слова.

[Lakers]

заносиш эти слова в массив.после вортируеш по возрастанию и выводиш

[rodya]

Спасибо!

Могли бы вы написать саму программу по нахождению двойной буквы.

Сортировку сам сделаю.

[TolkienDRR]

k:=0;
for i:=1 to n do //n - количество слов
 for j:=1 to length(a[i])-1 do  //a - массив слов
  if a[i][j]=a[i][j+1] then begin
   inc(k); //k - индекс в массиве со словами с двойными букафками
   b[k]:=a[i]; //b - сам массив
  end;

кратко так.

[rodya]

TolkienDRR

спасибо.!

[Lakers]

TolkienDRR

если будут слова типа "ааа" то оно добавится два раза, а это некоректно, оно вообще не должно добовлятся.

[TolkienDRR]

Lakers, тоже верно, надо бряк вставить =)

Добавлено спустя 1 минуту 9 секунд:

k:=0;
for i:=1 to n do //n - количество слов
 for j:=1 to length(a[i])-1 do  //a - массив слов
  if a[i][j]=a[i][j+1] then begin
   inc(k); //k - индекс в массиве со словами с двойными букафками
   b[k]:=a[i]; //b - сам массив
   break;     //переход на следующее слово
  end; 

Добавлено спустя 1 минуту 11 секунд:

rodya, возьми процедуру сортировки любую и сортируй по length(a);