Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово

uses crt;
 
var Sogl,Glas,Zvon:set of char;
    Smas,Gmas,Zmas: array [1..30] of char;
    i,j,x,y,z:integer;
    stroka:string;
 
const
GlasM = ['а','е','и','о','у','ы','э','ю','я'];
SoglM = ['б','в','г','д','ж','з','к','л','м','п','р','с','т','ф','х','ц','ч','ш','щ'];
ZvonM = ['б','в','г','д','ж','з','л','м','н','р'];
 
Procedure Swap(x,y:char);
var t:char;
    begin
    t:=x;   x:=y;   y:=t;
    end;
    
begin
   Glas:=[]; Sogl:=[]; Zvon:=[];
   Write('Введите строку: ');Readln(stroka);
 
   For i:=1 to length(stroka) do
   begin
        {===================================================================}
        If stroka[i] in GlasM then       // гласные буквы
        begin
            If not (stroka[i] in Glas) then
            begin
            inc(x);
            Gmas[x]:=stroka[i];
            Glas:=Glas+[stroka[i]]
            end;
        end;
        {====================================================================}
        If stroka[i] in SoglM then       // согласные буквы
        begin
            If not (stroka[i] in Sogl) then
            begin
            inc(y);
            Smas[y]:=stroka[i];
            Sogl:=Sogl+[stroka[i]]
            end;
        end;
        {====================================================================}
        If stroka[i] in ZvonM then       // звонкие буквы
        begin
            If not (stroka[i] in Zvon) then
            begin
            inc(z);
            Zmas[z]:=stroka[i];
            Zvon:=Zvon+[stroka[i]]
            end;
        end;
   end;
{===========================================================================}
If x=0 then writeln('Гласных нету.') else
begin
For i:=1 to x do         // Сортировка гласных
  For j:=1 to x-1 do
  If Gmas[j]>Gmas[j+1] then swap(Gmas[j],Gmas[j+1]);
{ Вывод гласных }
Writeln;
Write('Гласных: ');
For i:=1 to x do
write(Gmas[i],', ')
end;
{===========================================================================}
If y=0 then writeln('Согласных нету.') else
begin
For i:=1 to y do         // Сортировка согласных
  For j:=1 to y-1 do
  If Smas[j]>Smas[j+1] then swap(Smas[j],Smas[j+1]);
{ Вывод согласных }
Writeln;
Write('Согласных: ');
For i:=1 to y do
write(Smas[i],', ')
end;
{===========================================================================}
If z=0 then writeln('Звонких нету.') else
begin
For i:=1 to z do         // Сортировка звонких
  For j:=1 to z-1 do
  If Zmas[j]>Zmas[j+1] then swap(Zmas[j],Zmas[j+1]);
{ Вывод звонких }
Writeln;
Write('Звонких: ');
For i:=1 to z do
write(Zmas[i],', ')
end;
 
end.