[Pascal] Множества

Program mno;
uses crt;
var
s:string;
a:array[1..10] of string;
b:array[1..10] of integer;
i,e,r,t:integer;
begin
clrscr;
{a:=['б','в','г','д','ж','з','р','л','м','н','р'];}
a[1]:= 'б';
a[2]:= 'в';
a[3]:= 'г';
a[4]:= 'д';
a[5]:= 'ж';
a[6]:= 'з';
a[7]:= 'л';
a[8]:= 'м';
a[9]:= 'н';
a[10]:='р';
writeln('Введите слово строчными буквами.В конце поставьте точку');
read(s);
i:=1;
e:=1;
if s<>' ' then
             i:=i+1;
if s<>'.' then
Writeln ('Поставьте точку') ELSE
begin
Case s of
'б':b[1]:=b[1]+1;
'в':b[2]:=b[2]+1;
'г':b[3]:=b[3]+1;
'д':b[4]:=b[4]+1;
'ж':b[5]:=b[5]+1;
'з':b[6]:=b[6]+1;
'л':b[7]:=b[7]+1;
'м':b[8]:=b[8]+1;
'н':b[9]:=b[9]+1;
'р':b[10]:=b[10]+1;
end;
end;
if s=' ' then  t:=0;
if t<10 then t:=t+1;
if b[t]<2 then b[t]:=0;
i:=0;
writeln('');
if i<10 then
begin
i:=i+1;
if b>1 then write(a);
end;
readkey;
end.