А зачем вводить новую переменную для нового знака? А если я захочу удалить много знаков - будет много переменных? Может быть, так лучше?
PHP код:
program Main2;
var S:string;
a:char;
f1,f2:text;
function NewStr(S:string;a:char):string;
var T:string;
begin
T:=S;
while Pos(a + a,T) > 0 do delete(T, Pos(a + a,s), 1);
NewStr:=T;
end;
begin
assign(f1, 'E:\Input.txt');
reset(f1);
assign(f2, 'E:\Output.txt');
rewrite(f2);
a:=chr(33);
readln(f1,s);
s:=NewStr(s, a);
a:=chr(44);
writeln(f2,NewStr(s, a));
close(f1);
close(f2);
end.