Есть множество звонких букв, водим предложение, как найти все эти буквы хотя бы в одном слове?

uses crt;
type
chars=set of char;
const
SBykvi: chars=['в','б','г','д','ж','з','л','м','н','р'];
VseBykvi: chars=['а'..'п','р'..'я',',','.'];

var
a,b,c,slovo: chars;
s: char;
i:byte;
procedure Prints(M:chars);
var
i: byte;
net: boolean;
begin
net:=true;
for i:=0 to 255 do
if (chr(i) in M) then
begin
write(chr(i):2);
net:=false;
end;
if net then
write('Їгбв®');
end;

begin
clrscr;
textbackground(white);
textcolor(red);
writeln('‚ўҐ¤ЁвҐ б«®ў , а §¤Ґ«пп § ЇпвЁ¬Ё,   §  Ї®б«Ґ¤­Ґ¬ б«®ў®¬ Ї®бв ўм⥠в®зЄг');
writeln;
textbackground(blue);
textcolor(white);

repeat
S:=readkey;
c:=SBykvi;

if s in Vsebykvi then
begin

if s=',' then
begin
slovo:=[];
end
else
begin
slovo:=slovo+[s];

end;
write(s);
if a=a+slovo then
if c<=a then
a:=c;


until s='.';



prints(A);



readLn;
end.
Почему то не работает?

Ну совесть-то имейте... Поиск для чего на форуме? Множества (и доделываешь под свои нужды)

uses crt;
type
chars=set of char;
const
SBykvi: chars=['в','б','г','д','ж','з','л','м','н','р'];
VseBykvi: chars=['а'..'п','р'..'я',',','.'];

var
a,b,c,slovo: chars;
s: char;
i:byte;
procedure Prints(M:chars);
var
i: byte;
net: boolean;
begin
net:=true;
for i:=0 to 255 do
if (chr(i) in M) then
begin
write(chr(i):2);
net:=false;
end;
if net then
write('Їгбв®');
end;

begin
clrscr;
textbackground(white);
textcolor(red);
writeln('‚ўҐ¤ЁвҐ б«®ў , а §¤Ґ«пп § ЇпвЁ¬Ё,   §  Ї®б«Ґ¤­Ґ¬ б«®ў®¬ Ї®бв ўм⥠в®зЄг');
writeln;
textbackground(blue);
textcolor(white);

repeat
S:=readkey;
c:=SBykvi;

if s in Vsebykvi then
begin

if s=',' then
begin
slovo:=[];
end
else
begin
slovo:=slovo+[s];

end;
write(s);
if a=a+slovo then
if c<=a then
a:=c;


until s='.';



prints(A);



readLn;
end.
Почему то не работает?

!

Пользуемся тегом code.