Задачи на строковые переменные

[Exact]

С хорошим человеком разобрались, теперь помогите разобраться с собственной задачей:

Дана строка S, состоящая из n символов. Группы символов разделены одним или несколькими пробелами. Не содержащие пробелов внутри себя группы символов считать словами. Удалить из этой строки все слова из четырех букв, подсчитав их количество.

Вообще прогу не сложная, но нужно учесть такие четырёхзначные слова которые не со всех сторон отделены пробелами (к примеру вначале и в конце + нужно учитывать несколько пробелов. В общем мучился целый день и постоянно что-то упускаю.

[puporev]

Если знаешь, как решить без лишних пробелов, то можно сначала их убрать, хотя есть другой способ, но я его не помню.
Пример исключения лишних пробелов:

Program probely;
uses crt;
var a:string;i,j:integer;x:char;
begin
clrscr;
writeln('Исходная строка :');readln(a);
x:=chr(32); //это код пробела
i:=1;
while i<length(a)do
   begin
     if a[i]=x then
       while a[i+1]=x do
         delete(a,i+1,1);
     i:=i+1;
   end;
writeln('Обработанная строка:');
writeln(a);
readln;
end.

[Stilet]

нужно учесть такие четырёхзначные слова которые не со всех сторон отделены пробелами

Всмысле? пример приведи...

[Exact]

Я же привел пример вначале и вконце строки

[Yulidera]

Всем привет...у меня скоро экзамен...помогите пожалуйста задачи решить...
1 отсортировать чётные строки массива по возрастанию,ф нечётные по убыванию.
2.в заданной последовательности целых чисел определить количество подпоследовательностей,состоящих из идущих подряд чётных чисел.
3.в данной матрице элементы каждой строки упорядочить по убыванию,а сами строки расположить по возрастанию суммы элементов в строке.
спасибо заранее..потом ещё скину...)