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

Program mn_3;
uses crt;
type let=' а'..'я';
var sogl:set of let;
text: set of char;
c:char;
s:string;
i:byte;
begin
writeln('введите текст, заканчивающийся  точкой');
readln(s);
if s[length(s)]<>'.' then s:=s+'.';
text:=[];
sogl :=['б','в','г','д','ж','з','л','м','н','р'];
repeat
if s[i] in sogl then text:=text+[s[i]];
i:=i+1;
until s[i]='.';
for c:='a'  to 'я' do if c  in text then write(c);
readln;
End.

Program mn_3;
uses crt;
const zsg=['b','d','g','j','l','m','n','r','v','w'];
var sogl:set of char;
    c:char;
    s,sl:string;
    n,i,j:byte;
begin
clrscr;
writeln('ââåäèòå òåêñò èç ñòðî÷íûõ ëàòèíñêèõ áóêâ, ñëîâà ðàçäåëåíû çàïÿòûìè');
writeln('îêîí÷àíèå ââîäà òî÷êà');
{ââîä ñòðîêè ïî óñëîâèþ}
s:='';
repeat
c:=readkey;
if c in ['a'..'z',',','.'] then
 begin
  write(c);
  s:=s+c;
 end;
if c='.' then writeln;
until c='.';
while s[1]=',' do delete(s,1,1);
while s[length(s)]=',' do delete(s,length(s),1);
while pos(',,',s)>0 do delete(s,pos(',,',s),1);
s:=s+',';
sogl:=[];
n:=0;
sl:='';
for i:=1 to length(s) do
if s[i]<>',' then  sl:=sl+s[i]
else
 begin
  n:=n+1;
  if n mod 2=0 then
   begin
    writeln(sl); {ìæíî óáðàòü ýòî äëÿ ïðîâåðêè}
    for j:=1 to length(sl) do
    if sl[j] in zsg then sogl:=sogl+[sl[j]];
   end;
  sl:='';
 end;
if sogl=[] then write(' ÷åòíûõ ñëîâàõ íåò çâîíêèõ ñîãëàñíûõ')
else
 begin
  writeln('Çâîíêèå ñîãëàñíûå');
  for c:='b' to 'w' do
  if c in sogl then write(c,' ')
 end;
readln;
End.

{ввод строки по условию}
s:='';
repeat
c:=readkey;
if c in ['a'..'z',',','.'] then
 begin
  write(c);
  s:=s+c;
 end;
if c='.' then writeln;
until c='.';

readln(s);

while s[1]=',' do delete(s,1,1);//удаление ведущих запятых
while s[length(s)]=',' do delete(s,length(s),1);//удаление ведомых запятых
while pos(',,',s)>0 do delete(s,pos(',,',s),1);//удаление лишних (более 1 подряд) запятых