Задача про строку Опции

[Merlin]

Дана строка символов. Удалить из строки все знаки препинания. Вывести исходную и преобразованные строки на экран.

[Altair]

:smoke: :smoke: :smoke:
и еще

{$X+}
uses crt;
Type
 str=object
  private
  enterstr,resultstr:string;
  public
  procedure Init;
  procedure RunAndDone;
 end;

Procedure Str.Init;
begin
 write('Enter string ');
 readln(enterstr);
 resultstr:='';
end;

procedure str.runanddone;
var
 r:set of char; i:byte;
begin
 r:=['.',',','!'];
 i:=1;
 for i := 1 to length(enterstr) do
   if not(enterstr[i] in r) then  resultstr:=resultstr+enterstr[i];
 writeln(enterstr);
 writeln(resultstr);
 readln
end;


var
 work:str;
begin
 work.init;
 work.runanddone;
end.

Музыка играет -
InsightRadio. Moscow Private Progressive Radio