Здравствуйте!
Есть программа, удаляющая лишние восклицательные знаки из строки.(Они считаются лишними, если их подряд больше одного).
Помогите дописать ее так, чтобы она удаляла еще и другие лишние знаки, например, запятые. Заранее спасибо за помощь.
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);
writeln(f2,NewStr(s, a));
close(f1);
close(f2);
end.