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

[Merlin]

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

[Altair]

program Untitled;
var
 s,g:string;
 r:set of char;
 i:byte;
begin
 r:=['.',',','!'];
 write(' enter string: '); reADLN(s); g:=s;
 i:=1;
 while i<=length (s) do begin
  if s[i] in r then delete (s,i,1) else inc(i);
 end;
 writeln(s);
writeln(g);
 readln
end.

Множество знаков припинаний сам дополнишь.

Сообщение отредактировано: Altair - 26.10.2005 22:48