procedure SelectCell;
var
  m,r,mr,i: byte;
begin
  ch:=false;
  m:=0;r:=0;
if lvl=0 then begin
  for i:=1 to 9 do
     r:=r+Ray[i];
  mr:=random(r)+1;
  for i:=1 to 9 do begin
     mr:=mr-Ray[i];
     if mr<=0 then begin
        Kl[i]:=4;
        DrawCell(i);
        break
     end
  end
end
else begin
  for i:=1 to 9 do
    if Ray[i]>r then r:=Ray[i];
  for i:=1 to 9 do
    if Ray[i]=r then m:=m+1;
  mr:=random(m)+1;
  m:=0;
  for i:=1 to 9 do begin
    if Ray[i]=r then begin
      m:=m+1;
      if m=mr then begin
        Kl[i]:=4;
        DrawCell(i);
        break
      end
    end
  end
end
end;