Pascal: Удалить из предложения слова, состоящие более чем из шести букв

[craper]

Помогите! Нужно написать на паскале прогу. Ты вводишь предложение, а программа удаляет слова, которые состоят более чем из 6 символов!

[digitalis]

разделители - только пробелы, или могут быть знаки препинания ?

[Aleksandr H.]

удаляет слово длиннее 6 символов. Пробелы не трогает.

uses crt;
var s :string;
    sf:byte;
    i :integer;
BEGIN
 clrscr;
 writeln('Input Line');
 readln(s);
 s:=' '+s+' ';
 sf:=2;
 i:=2;
 while i<=length(s) do
  begin
    if s[i] = ' ' then
     begin
        if i-sf>6 then
           begin
             delete(s,sf,i-sf);
             i:=sf;
             inc(sf);
           end
        else
           sf:=i+1;
     end;
    inc(i);
  end;
  delete(s,length(s),1);
  delete(s,1,1);
  writeln(s);
  readln;
END.

[craper]

Спасибо большое!)

[digitalis]

ну так она за длинное слово посчитает "любо,братцы,любо"

[Aleksandr H.]

В школе учили что слова в предложении разделяются пробелами.
Пускай допиливает, учитывает знаки препинания, или... 7$ и я допилю.

[digitalis]

Сообщение от Aleksandr H.

В школе учили что слова в предложении разделяются пробелами.
Пускай допиливает, учитывает знаки препинания, или... 7$ и я допилю.

Плохо учили ... Могут разделяться( , ; - : ) -- и это все в одном предложении.
А допилить я и за 5 могу

[Aleksandr H.]

Сообщение от digitalis

Плохо учили ... Могут разделяться( , ; - : ) -- и это все в одном предложении.

пруф?

Сообщение от digitalis

А допилить я и за 5 могу

не демпингуй

[digitalis]

Сообщение от Aleksandr H.

пруф?

Учебник русского языка за 5-й класс , URL не помню

не демпингуй

так у нас же рынок. и кризис шутю, старик Жека за такую малость песеты не стрясает.

[Аватар]

Еще и точка может быть:

Про Ивашку Бровкина говорили: крепкий (А.Н. Толстой).

И про кавычки забыли. А вот и восклицательный знак внутри предложения:

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