задача на Pascal

При вводе предложения программа должна удалять все слова, которые состоят более чем из 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.
27 ноября 2016 в 15:00
Ближайшие курсы

Как начать свой путь в разработке?
Онлайн-курс
7
марта
Как работает криптосфера
Онлайн-курс
7
марта
Как стать iOS-разработчиком?
Онлайн-курс
7
марта
Новые статьи

Что такое MVP и как к нему подступиться
48000

Обновляем программу обучения для менеджеров по продажам
32500

BI-системы: что это и зачем они нужны бизнесу
55900