Сформировать новую строку, в которую включить все слова, длиной не более 4 символов

var s,s1,s2:string;
    i,j,n:integer;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
n:=length(s);
s2:='';
i:=1;
while i<=n do
if (s[i]<>' ')and((i=1)or(s[i-1]=' '))then
 begin
  j:=i;
  s1:='';
  while(s[j]<>' ')and(j<=n) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)<5 then s2:=s2+s1+' ';
  i:=i+length(s1);
 end
else i:=i+1;
if s2='' then write('Нет слов из 1..4 символов')
else write(s2);
end.

var s,s1,s2:string;
    i,n:integer;
begin
 writeln('Введите строку из слов, разделенных пробелами');
 readln(s);
 n:=length(s);
 s1:=''; s2:='';
 i:=1;
 while i<=n do
  begin
   if s[i]<>' '
     then s1:=s1+s[i]
     else begin
       if (s1>'') and (length(s1)<5)
         then s2:=s2+s1+' ';
       s1:='';
       end;
   i:=i+1;
  end;
 if s2=''
   then write('Нет слов из 1..4 символов')
   else write(s2);
end.