Обработка текста, строк (Delphi)

[ekzobyte]

Процедура удаляет лишний пробел перед знаками. Как это перевести в цмкл с предусловием? Пожалуйста, подскажите

procedure del_prob(var ss: string);
 var
   i: integer;
   j: byte;
begin
 j := 0;
 for i := 2 to Length(ss) do
   begin
     if (ss[i] = '.') or (ss[i] = ',') or (ss[i] = '!') or (ss[i] = '?')
       then j := 1; //Проверка была ли точка, '!' или '?' в строке
     if (ss[i-1] = ' ') and (j = 1)
       then begin
         delete(ss, i-1, 1);
         j := 0;
            end;
   end;
end;

[spamer]

Что то типа такого:

procedure del_prob(var ss: string);
 var
   i: integer;
   j: byte;
begin
 j := 0;
 i := 2;
while i <= Length(ss) do
   begin
     if (ss[i] = '.') or (ss[i] = ',') or (ss[i] = '!') or (ss[i] = '?')
       then j := 1; //Проверка была ли точка, '!' или '?' в строке
     if (ss[i-1] = ' ') and (j = 1)
       then begin
         delete(ss, i-1, 1);
         j := 0;
            end;
   inc(i);
   end;
end;

[ekzobyte]

СПАСИБО огромное!