При вводе предложения программа должна удалять все слова, которые состоят более чем из 6 символов.
Есть код этой программы, но можно ли его как-то упростить ?

uses crt;
var s: string;
len, i, j: integer;
begin
Write('Введите предложение: ');
Readln(s);
len:= length(s);

i:= 1; 
j:= 0; 

while i <=len do 
begin
  if s[i] <> ' ' then 
  begin
    j:= j + 1; 
    i:= i + 1; 
  end
  else 
  begin
    if j > 6 then 
    begin
      delete(s, i-j, j + 1); 
      len:= length(s);
      i:= i - j; 
      j:= 0; 
    end
    else 
    begin
      i:= i + 1; 
      j:= 0; 
    end;
  end;
end;
if j > 6 then 
  delete(s, i-j, j);
  writeln(s);

end.