Задача на тему: множества

type mmm=set of char;
var s1:string; h:set of char;
procedure rasbuk(s:string);
var i:integer;j,t:char;n:integer; ss, dd:mmm;
begin
ss:=[];
dd:=[];
for i:=1 to length(s) do
while s[i] = '.' do
begin
while s[i] = ' ' do
if s[i] in h then ss:=ss+[s[i]];
dd:=dd-ss;
for j:='a' to 'z' do
begin
n:=0;
for i:=1 to length(s) do
if j=s[i] then n:=n+1;
if n>=2 then writeln(j);
end;
writeln('Bykvi ne vhodyawie v tekst');
for t:='a' to 'z' do
if t in dd then write(t);
end;
begin
writeln('vvedite tekst');
readln(s1);
h:=['a'..'z'];
rasbuk(s1);
readln;
end; end.

[SIZE=2]
uses crt;
const sg=['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','v','w','x','z'];
var str:string;
procedure RasBuk(s:string);
var m:set of char;
      i:integer;
      j:char;
begin
m:=[]; [/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]{[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]для начала множество пустое[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]for i:=1 to length(s) do
if s[i] in sg then m:=m+[s[i]];[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]заносим в него все согласные буквы из текста[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]m:=sg-m;[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]вычитаем из множества всех согласных букв наше множество[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]for j:='b' to 'z' do
if j in m then write(j,' ');[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2] {[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]выводим то что осталось[/SIZE][FONT=Arial][SIZE=2][FONT=Arial][SIZE=2]}
[/SIZE][/FONT][/SIZE][/FONT][SIZE=2]end;
begin
clrscr;
writeln('Ввведите текст из маленьких латинских букв:');
readln(str);
RasBuk(str);
readln
end.
[/SIZE]

[SIZE=2]
uses crt;
const sg=['b','c','d','f','g','h','k','l','m','n','p','q','r','s','t','v','w','x','z'];
type Tmnoz=set of char;
var s,sl:string;
k:integer;
mn:Tmnoz;
j:char;
procedure RasBuk(s:string;var mm:Tmnoz);
var m:Tmnoz;
i:integer;
begin
m:=[]; {для начала множество пустое}
for i:=1 to length(s) do
if s[i] in sg then m:=m+[s[i]]; {заносим в него все согласные буквы из слова}
mm:=sg-m; {вычитаем из множества всех согласных букв наше множество}
end;
begin
clrscr;
writeln('Ввведите текст из маленьких латинских букв:');
readln(s);
insert(' ',s,pos('.',s)); {вставим перед точкой пробел для удобства}
while pos('.',s)>1 do {пока не точка}
while (pos(' ',s)>0) do {пока есть пробелы}
begin
sl:=copy(s,1,pos(' ',s)-1); {копируем очередное слово}
RasBuk(sl,mn); {вычитаем согласные}
delete(s,1,pos(' ',s)); {удаляем это слово + пробел}
end;
for j:='b' to 'z' do
if j in mn then write(j,' '); {выводим то что осталось}
readln
end.
[/SIZE]