Составить слово "МИР" при помощи генерации

##
var s:= '';
 
var count:= 0;
 
for var i:= 1 to 300 do begin
  var current:= random('а'..'я');
  if 'мир'.Contains(current) and not s.Contains(current) then
    s+= current;
  
  count+= 1;
  
  if s.Length = 3 then
    break;
end;
 
count.print;

program RandomAlphabet;
 
var i, countM, countI, countR: integer; letter: char;
 
begin Randomize; 
countM := 0; 
countI := 0; 
countR := 0;
 
for i := 1 to 300 do begin letter := Chr(Random(32) + 1072); Write(letter);
 
 
case letter of
  'М': countM := countM + 1;
  'И': countI := countI + 1;
  'Р': countR := countR + 1;
end;
 
if (countM > 0) and (countI > 0) and (countR > 0) then
begin
  Writeln;
  WriteLn('Слово "МИР" составлено!');
  WriteLn('Общее количество сгенерированных букв: ', i);
  Break;
end;
end; 
end.

case letter of
  'М': countM := countM or 1;
  'И': countI := countI or 1;
  'Р': countR := countR or 1;
end;
 
if countM + countI + countR = 3 then

case letter of
  'М': letetrs := letters or 1;
  'И': letters := letters or 2;
  'Р': letters := letters or 4;
end;
 
if letters = 7 then

## ('а'..'я').Count.Println; //32

##
var Flags:=0;
for var i:=1 to 300 do begin
  case Random('А'..'Я') of
    'М': Flags:=Flags or 1;
    'И': Flags:=Flags or 2;
    'Р': Flags:=Flags or 4;
  end;
  if Flags=7 then begin
    Print(i); Exit;
  end;
end;

  case Random('А'..Succ('Я')) of