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

[Merlin]

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

[volvo]

To: Altair
А через рекурсию слабо? :P

function is_punct(ch: char): boolean;
begin
  is_punct := (ch in ['.',',','!'])
end;
function check_string(ch: char): string;
begin
  check_string := '';
  if not is_punct(ch) then check_string := ch;
end;

function do_it(s: string): string;
begin
  if length(s) > 1 then
    do_it := check_string(s[1]) + do_it( copy(s, 2, 255) )
  else do_it := check_string(s[1]);
end;

var s, g: string;
begin
  write('enter string: '); readln(s);
  writeln( do_it(s) );
end.