Изменение программы под условие

[NeedForSpeert]

Здравствуйте! Вопрос по прологу. Мне необходимо удалить из файла все упоминания символа, который задаст пользователь (или который введен просто в программе). Я нашел прогу, которая удаляет лишние пробелы. Как ее переделать под мою задачу? Или может у кого-нибудь есть готовая такая программа?

DOMAINS
 s=string sl=s*
 file = in;out
 CONSTANTS
 zn=[".",",","!",";",":"] % ..............
 PREDICATES
 w
 toList(s,sl)
 writeList(s,sl)
 member(s,sl)
 CLAUSES
 w. w:-w.
 
 toList(A,[B|C]):- fronttoken(A,B,D), !, toList(D,C).
 toList(_,[]).
 
 writeList(O,[A|B]):- not(member(A,zn)), !, write(O,A), writeList(" ",B).
 writeList(_,[A|B]):- write(A), !, writeList(" ",B).
 writeList(" ",_):- nl, !.
 writeList(_,_).
 
 member(A,[A|_]):- !.
 member(A,[_|B]):- member(A,B).
 
 GOAL clearwindow,
 openread(in,"in.txt"), readdevice(in), 
 openwrite(out,"out.txt"), writedevice(out),
 w, readln(X), toList(X,Xl), writeList("",Xl), flush(out), 
 eof(in), closefile(in), closefile(out),
 file_str("out.txt",S), display(S).