Правила пунктуации

[ДеТкА]

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

[denisbrain]

как вариант - но нужно тестировать

Function GetTrueProbel(S:string):string;
var x,l:integer;
    res:boolean;
    begin
       res:=true;
       l:=length(S)-1;
       x:=1;
       while x<l do begin
       
         if (s[x] in [' ',#9,#13,#10]) and (s[x+1] in ['.',',',';',':','!',')',']','}','…']) then begin
          delete(s,x,1);
          x:=x-2;
          end
          else
         if (s[x+1] in [' ',#9,#13,#10]) and (s[x] in ['(','[','{']) then begin
         delete(s,x+1,1);
         x:=x-2;
         end;
         x:=x+1;
       end;
       result:=s;
    end;
    
begin
Writeln('"'+GetTrueProbel('номер ] ( 111;    ;22')+'"');
end.

[denisbrain]

берем данные из файла

Function GetTrueProbel(S:string):string;
var x,l:integer;
    res:boolean;
    begin
       res:=true;
       l:=length(S)-1;
       x:=1;
       while x<l do begin

         if (s[x] in [' ',#9,#13,#10]) and (s[x+1] in ['.',',',';',':','!',')',']','}','…'{,' ',#9,#13,#10}]) then begin
          delete(s,x,1);
          x:=x-2;
          end
          else
         if (s[x+1] in [' ',#9,#13,#10]) and (s[x] in ['(','[','{']) then begin
         delete(s,x+1,1);
         x:=x-2;
         end;
         x:=x+1;
       end;
       result:=s;
    end;
var f:Text;
s:string;
begin
assign(f,'c:\is1129-01.in');
reset(f);
readln(f,s);

close(f);
assign(f,'c:\out1129-01.out');
rewrite(f);
Writeln(f,'"'+GetTrueProbel(s));
close(f);
end.