Где ошибка?

CONST razmer = 26; kol=15;
VAR mno,d : set of 0..razmer;
    mni: set of 'b'..'d';
     i : integer;
     a:integer;
     c:char;
BEGIN
randomize;
for i:=1 to kol do begin
a:=random(26)+65;
c:=chr(a);
mno:=mno + [a];
end;
d:=mno*mni;
if a=[] then writeln('no')
        else writeln('yes')
END.

uses crt;
CONST razmer = 26;
kol=15;
mni=['d'..'f'];{множество для поиска}
VAR mno: set of char;{создаваемое множество}
    i : integer;
    a:integer;
    c:char;
BEGIN
clrscr;
randomize;
mno:=[];{сначала множество пустое, всегда обнуляйте переменные, 
значения которых создаются динамически}
for i:=1 to kol do
 begin
  a:=random(razmer)+97;{коды символов от 'a' до 'z'}
  c:=chr(a);
  write(c,' ');
  mno:=mno+[c];{не числа записывать, а буквы!!!}
end;
writeln;
if mno*mni=[] then writeln('no')
        else writeln('yes');
readln
END.