Паскаль .Множества.текст программы

[Reddance]

Дано текст из символов. Разработать программу, которая печатает все, кроме пробелов и знаков препинания. (Желательно подпрограммами)

[Stilet]

procedure qu(s:String);
var i:integer;
begin
 for i:=1 to length(s) do if not (s[i] in [' ',',','.','?']) then write(s[i]);
end;

Подходит?

[Reddance]

не очень... єто просто рядком... а мне нужно через множества

[Stilet]

а мне нужно через множества

[' ',',','.','?'] называется множество.