Строки в Турбо Паскаль

[Металлистка]

Помогите пожалуйста написать программу в Турбо Паскале
В заданной строке слова разделены по крайней мере одним пробелом. Удалить лишние пробелы между словами, оставив между ними только по одному пробелу.
Спасибо)

[Mad_Cat]

var s:string;
begin
readln(s);
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
writeln(s);
end.

[Poma][a]

var
	i, j : Integer;
	s : string;
begin
	ReadLn (s);

	i := 1;
	while s[i] = ' 'do
		Inc (i);
	delete (s, 1, i - 1);

	i := Length (s);
	while s[i] = ' ' do
		Dec (i);
	Delete (s , i + 1, Length (s));

	i := Pos ('  ', s);
	while  i <> 0 do begin
		j := i + 2;
		while s [j] = '  ' do
			inc (j);
		Delete (s, i, j - i - 1);
		i := Pos ('  ', s)
	end;

	WriteLn (s)

end.

ой, не видел пост Mad_Cat'a...
Так решение Mad_Cat'a лучше (меньше ) (но моё решение пригодится при обработке миллиона строк ), но стоит проверить 1 и последний элемент, вдруг они = ' '? Тогда удалим их...

[Металлистка]

Большое спасибо)))

[Металлистка]

не могли бы вы помочь с еще одной похожей задачкой,посложнее)
Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. Исключить все группы символов, расположенные между символами « ( » и « ) », включая сами скобки. Предполагается, что внутри каждой пары скобок нет других скобок.

[Mad_Cat]

Дана строка символов. Группы символов, разделенные одним или несколькими пробелами и не содержащие пробелов внутри себя, будем называть словами. Исключить все группы символов, расположенные между символами « ( » и « ) », включая сами скобки. Предполагается, что внутри каждой пары скобок нет других скобок.

var s:string;
i,k:integer;
begin
readln(s);
k:=pos('(',s);
i:=pos(')',s);
while (k<>0) and (i<>0) do
begin
  delete(s,k,i-k+1);
  k:=pos('(',s);
  i:=pos(')',s);
end;
writeln(s);
end.

[Металлистка]

Большое спасибо

[mptmon]

Доброго времени суток! Помоги написать программу: Дана строка символов. Группы символов, разделенные пробелами и не
содержащие пробелов внутри себя, будем называть словами. Подсчитать
количество слов в данной строке длиной более 4 символов.