Дана непустая последовательность слов из строчных русских букв

program sergey;
uses crt;
var str,vrem:string;
    arraystr: array[1..15] of string;
    mystat:array[1..15] of boolean;
    i,n,k,j,l,sovp:integer;
    b:set of char;
begin
clrscr;
vrem:='';
b:=['w','r','t','p','d','g','f','h','j','k','l','z','x','c','v','b','n','m','s'];
writeln('Vvedite slova');
readln(str);
k:=0;
n:=length(str);
for i:=1 to n do
if str[i]='.' then break else
 begin
 if str[i]=',' then
  begin
    if vrem<>'' then
     begin
     inc(k);
     arraystr[k]:=vrem;
     vrem:='';
     end;
  end
 else
 begin
  if str[i] in b then
  vrem:=vrem+str[i];
 end;
 end;
 
 if vrem<>'' then
  begin
   inc(k);
   arraystr[k]:=vrem;
  end;
 
 for i:=1 to k do
   begin
    writeln;
    vrem:='';
    vrem:=arraystr[i];
    for j:=1 to length(vrem) do
     mystat[j]:=false;
    for j:=1 to length(vrem) do
      begin
       sovp:=0;
       for l:=1 to length(vrem) do
        begin
         if vrem[j]=vrem[l] then
          begin
           inc(sovp);
           if sovp>1 then mystat[l]:=true;
          end;
        end;
        if mystat[j]=false then
        write(vrem[j]);
      end;
   end;
readkey;
end.

uses crt;
const sg=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь'];
var s:string;
    m,m1:set of char;
    i,k:integer;
begin
clrscr;
writeln('Vvedite text');
readln(s);
for i:=1 to length(s) do
if s[i] in sg then include(m,s[i]);{еси буква согласная, включаем ее в множество, можно m:=m+[s[i]]}
m1:=sg-m;{вычитаем из множества всех согласных букв множество встреченных, получаем 
множество тех, которые не входят}
writeln('rezultat:');
k:=0;
for i:=161 to 236 do{от буквы б до буквы ь}
if chr(ord(i))in m1 then{если какая-то буква есть в множестве}
  begin
   write(chr(ord(i)),' ');{выводим ее}
   k:=k+1;
  end;
if k=0 then writeln('Takih bukv net');{если ни одной нет, сообщаем}
readln
end.