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