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

program lfk;
var s,b,x:string;
a,c,d,i,z:integer;
g:array['а'..'я'] of integer;
e:char;
begin 
x:='кпстфхцчшщ';
readln(s);
a:=length(s);
for i:=1 to a do if s[i]=',' then d:=d+1;
for i:=1 to d do begin
c:=pos(',',s);
b :=Copy(s,1,c-1);
for e:='а' to 'я' do begin
if pos(e,b)<>0 then g[e]:=g[e]+1;
end;
z:=length(b)+1;
Delete(s,1,z);
end;
for e:='а' to 'я' do 
if pos(e,s)<>0 then g[e]:=g[e]+1;
for e:='а' to 'я' do if g[e]>0 then write (g[e],e,' ');
writeln;
for e:='а' to 'я' do if (pos(e,x)<>0) and (d+1-g[e]=1) then write (e,' ');
end.

program lfk;
var s,b,x,y:string;
a,c,d,i,j,z:integer;
g:array['а'..'я'] of integer;
f:array[1..10] of char;
e:char;
begin 
x:='кпстфхцчшщ';
readln(s);
y:=s;
a:=length(s);
for i:=1 to a do if s[i]=',' then d:=d+1;
for i:=1 to d do begin
c:=pos(',',s);
b :=Copy(s,1,c-1);
for e:='а' to 'я' do begin
if pos(e,b)<>0 then g[e]:=g[e]+1;
end;
z:=length(b)+1;
Delete(s,1,z);
end;
i:=1;
for e:='а' to 'я' do 
if pos(e,s)<>0 then g[e]:=g[e]+1;
for e:='а' to 'я' do if (pos(e,x)<>0) and (d-g[e]=0) then  begin
write (e,' ');
f[i]:=e;
i:=i+1;
end;
writeln;
a:=i-1;
for j:=1 to d do begin
c:=pos(',',y);
b:=Copy(y,1,c-1);
for i:=1 to a do begin
if (pos(f[i],b)=0) and(length(b) mod 2<>0) then write (f[i],' ');
end;
Delete(y,1,c);
end;
for i:=1 to a do 
if (pos(f[i],y)=0) and((length(y)-1) mod 2<>0) then write (f[i],' ');
end.