Обработка строк в языке Turbo Pascal

[Vad56]

помогите с решением программки, ничего не понимаю в строках((

Выделить самое длинное предложение.В выделеном предложении расположить слова в порядке увеличения длины.
заранее благодарен

[Gapro]

Program aaa;
 Var a: string;
       i,n,s : integer;
      m: array [1..1000] of integer;
Begin
 ReadLn(a);
 n:=1; s:=0
 For i:=1 To Length(a) Do Begin
    If a[i]<>'.' then 
        m[n]:=m[n]+1
    Else
        n:=n+1;
    Дальше сортировка массива m
    Дальше заводите массив строк, также как наверху сортируете слова по убыванию.

Можно вот так, но я не уверен, что это самое правильное и самое короткое решениею

[Vad56]

Буду пробовать!)

[ОДИНОЧЕСТВО В СЕТИ]

Дальше сортировка массива m

а зачем сортировать просто найдите индекс строки max длины и все!

[Vad56]

Так что лучше и быстрее??

[ОДИНОЧЕСТВО В СЕТИ]

Так что лучше и быстрее??

ответ да вас устроит?

[Vad56]

А поконкретнее можно??