Обработка строк

[Vad56]

Задание звучит так, выделит самое длинное придложение.В выделенном предложении расставить слова в порядке увеличения длины.
Вот исходник:

program lab7_files;
uses crt;
var
   i:integer;
   s:string;
   c:char;
   f:text;

begin
  clrscr;
    assign(f,'mytext.txt');
    rewrite(f);
    writeln('Vvedite posledovatelnost zaglavnih i strochnih bukv');
    readln(s);
    write(f,s);
    close(f);
    reset(f);
  while not eof(f) do
     begin
       read(f,c);
        if upcase(c)=c then
            write(chr(ord(c)+32))
        else
       write(c);
     end;
  readln;
end.

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

[Greblin]

А с чего бы им сортироваться, если Вы не написали процедуру сортировки. Приделайте любую сортировку, например пузырёк, и будет Вам счастье