[PascalABC]Строки. Отделение слов пробелами.

[IvanSect]

Приветствую! Требуется помощь в написании программы, задача такова:
"Составить программу на языке Паскаль для решения следующей задачи: дана последовательность из 40 символов русского алфавита. В ней есть слова, которые отделяются друг от друга пробелами. Длина слов от 3 до 7 символов, считается, что длиннее 7 символов слов нет, между словами может быть от одного до трех пробелов. Напечатать те слова последовательности, которые имеют минимальную длину."
Я о строках ничего не знаю, все лекции пропустил, а сейчас лабы сдавать надо, выручайте(

[Duha666]

Как-нибудь вот так:

var
  answer: array[1..15] of string;
  str: string;
  len, ansc: byte;
begin
  readln(str);
  str := str + ' ';
  for i := 1 to length(str) do
    if (str[i] = ' ') then
    begin
      if (len >= 3)
      begin
        ansc := ansc + 1;
        for j := i - len to i - 1 do
          ans[ansc][j - i + len + 1] := str[j];
      end;
      len := 0;
    end
    else
        len := len + 1;
end.