дз 2 часть 3

program ex3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
  Var a:array of string;
  st,s,buf:string;
  i,l,j:integer;
  type se=set of char;
  const ch:se=['!','.',',','"','?','~',':',';',' '];
begin
   i:=1;
   writeln('Enter string:');
   readln(st);
   while i<>length(st)+1 do begin
     if st[i] in ch then begin
       s:=s+st[i];
     end;
     inc(i);
   end;
   l:=length(s);
   setlength(a,l);
   for i := 1 to l do begin
     a[i]:=s[i];
   end;
   for i := 2 to l do begin
        buf := a[i];
        j := i - 1;
      while (j >= 1) and (a[j] > buf) do begin
        a[j + 1] := a[j];
        j := j - 1;
      end;
      a[j + 1] := buf;
    end;
    writeln('Punctuation marks:');
    for i := 1 to l do begin
     write(a[i], ' ');
    end;
   readln;
end.