Помогите плизз

Ну, и в чем проблема?

for i := 1 to length(s) do
  if s[i] = ' ' then s[i] := '*';

если надо ВСЕ идущие подряд пробелы заменить ОДНИМ символом '*', то что-то типа такого:

  i := 1;
  while i <= length(s) do begin
    if s[i] = ' ' then begin
      s[i] := '*';
      inc(i);
      while (s[i] = ' ') and (i <= length(s)) do delete(s, i, 1);
    end;
    inc(i)
  end;

Пасибки!!!!
А проблема в том что я ЧаЙнИк в этой теме