Модифицировать строку х следующим образом: удалить все длинные слова (длинным считать слово, длина которого больше 3)- Pascal(Паскаль)

var
  s: string;
  i,j: integer;
begin

  ReadLn(s);
  i := 1;
  while i <= Length(s) do begin
    j := i;
    while s[j] <> ' ') and (j <= Length(s)) do Inc(j);
    if j-i > 3 then Delete(s, i, j);
    i := j + 1;  
  end;

end.

program p1;
const max_l = 3;
var
  I: Integer;
  x, new_x, buf: String;
begin
  readln(x);
  new_x:='';
  for i:=1 to Length(x);
  begin
    if x[i] <> ' ' then
      buf:=buf+x[i]
    else
      if Length(buf) <= max_l then new_x:=new_x+buf;
  end;
  x:=new_x;
  writeln(x);
end.