Строка Опции

[Merlin]

Дана строка символов. Группу символов, разделенных с одной или с обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов, назовем словом.
Вывести на экран все слова с количеством символов больше 4 и меньше 10. Если таких слов нет, то вывести соответствующее сообщение.

Program stroka;
    Var
        Len, index, n : integer;
        Str, word, symbol : string ;
        WordIsHere: boolean;
     begin
         WordIsHere:=false;
          word : =’ ‘;
          n : = 0;
          writeln ( ‘Введите строку символов’);
          readln(str);
          len : = length(str);
          for index : =1 to len do
            begin
              if ((n>3) and(n<11)) then
                begin
                    writeln(word);
                    WordIsHere : = true;
                 end;
                 n : = 0;
                 word : = ‘ ‘;
             end
           else  begin
               n : = n + 1;
               word : = word + symbol ;
          end;
        end;
      if (n>0) then
         begin
             if ((n>3) and (n<11)) then
                begin
                     Writeln(word);
                      WordIsHere : = true;
                    end;
                   end;
                     if (not WordIsHere) then
                       writeln(‘ Слов с количеством символов от 3 до 10 в данной строке нет !!! ‘);
                        readln
                   end.

Появилась вот такая проблема : знакомый моего друга написал ему программу, с ней всё хорошо, она работает, вот только

1. Как её сделать меньше, если это можно, может что-то лишнее ? ( учитель не поверит, что он смог её написать).
2. Если не сложно, то напишите комментарии к этой программе, а то мы с другом до конца не можем всё понять, а отчитываться придётся перед преподом ему .