Удаление слов из строки

[Pritcher]

Удалить из строки все слова, длина которых меньше пяти символов, в строке не используются знаки.
Помогите, пожалуйста

[deathNC]

program project1;
uses
  crt;
var
  s, s_out, buff: String;
  i: Integer;
begin
  ClrScr; // очищаем экран
  ReadLn(S);
  s_out := '';
  S := S + ' '; // добавляем пробел
  While Length(s) > 0 do
    begin
      i := pos(' ', s);
      If i > 5 then
        s_out := s_out + copy(s, 1, i - 1) + ' ';
      Delete(s, 1, i);
    end;
  WriteLn(s_out);
  Readkey;
end.

[Pritcher]

deathNC, спасибо, выручил