проверка правописания Опции

[Ex1Le]

посмотрел по поиску...вроде такой задачи нету..если я плохо смотрел то сорри (

По правилам пунктуации пробел может стоять после, а не перед каждым из сле-дующих знаков: . , ; : ! ? ) ] } +; перед, а не после знаков: ( [ {. Заданный текст проверить на соблюдение этих правил и при необходимости исправить. Вместо пробела может быть пере-вод строки или знак табуляции.

[volvo]

Все просто:

const
  n = 2;
  zapret: array[1 .. n] of record
    _from: string[2]; { Это - запрещенная комбинация }
    _to: string[2]; { Это - соответствующая ей разрешенная }
  end =
  ((_from:' .'; _to:'. '),
   (_from:' ,'; _to:', '));
var
  s: string;
  i, p: byte;

begin
  s := 'begin .end ,none.';
  writeln('before: ', s);
  for i := 1 to n do begin
    p := pos(zapret[i]._from, s);
    if p > 0 then begin
      delete(s, p, 2); insert(zapret[i]._to, s, p);
    end;
  end;
  writeln('after: ', s)
end.

это - почти полная программа... Что надо изменить? Сделать проход по строке не 1 раз для каждой запрещенной комбинации, а ПОКА она встречается в строке. И только потом переходить к следующей запрещенной комбинации.