Дана строка символов. Группу символов, разделенных с одной или с обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов, назовем словом.
Вывести на экран все слова с количеством символов больше 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. Если не сложно, то напишите комментарии к этой программе, а то мы с другом до конца не можем всё понять, а отчитываться придётся перед преподом ему .

To: Merlin
Ну я уже устал говорить тебе про поиск !!! Была же задача, зачем опять новую тему создавать?
Строки

А вот решение:

var
  s: string;
  i, min:integer;
  curr_len, start: byte;
begin

  min := 255; i := 1;
  write('Введите строку символов: '); readln(s);
  while i <= length(s) do begin

    while (s[i] = ' ') and (i <= length(s)) do inc(i);

    curr_len := 0;
    while (s[i] <> ' ') and (i <= length(s)) do begin
      inc(i); inc(curr_len);
    end;

    if (curr_len >= 4) and (curr_len <= 10) then begin
      writeln(copy(s, i - curr_len, curr_len));
    end;

  end;
end.