Дана непустая последовательность символов. Постройте и напечатайте множество, элементами кот.являются встречающиеся в последовательности знаки препинания — Pascal(Паскаль)

uses crt;

var
  s: string;
  i: integer;
  m: set of char;

Begin
  writeln('s: ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in [',', '.', '/', '?', '!', '-', ':', '"'] then
      m := m + [s[i]];

  for i := 1 to 255 do
    if chr(i) in m then
      write(chr(i));

End.