Обработка текста, слова упорядочить Опции

[medved777]

Помогите решить лабу!
Дан текст, в котором в словах слоги разделены"-". Разделители слов могут быть любые. Распечатать слова,
упорядоченные в порядке убывания, по количеству слогов.
Пожалуйста помогите.Заранее спасибо.

[Lapp]

Выкладывай, что уже сама сделала.
Обязательно поможем.

[medved777]

Выкладывай, что уже сама сделала.
Обязательно поможем.

Не знаю в правильном ли формате отвечаю. На форуме в первый раз веду переписку.
Ума хватило только на подсчет количества слогов.

var sl,sl1:string;
k,i,n,:integer;
  begin
  write ('vvod predlozenia');
readln(sl);
k:=1;
n:=length(sl);
sl1:='-';
for i:=1 to n do
begin
if(sl[i]=sl1) then
k:=k+1;
end;

Умоляю помогите!

[volvo]

Погоди... Что тебе даст подсчет слогов во всем предложении? Тебе надо сначала разбить строку на слова, и потом уже в каждом слове искать количество слогов, так ведь?

Я бы воспользовался вот этим:
Разбиение на слова. Все способы.
и потом отсортировал бы массив words по убыванию количества слогов ...

[medved777]

Большое спасибо.Попробую.