program Tetris;
uses crt;

var Colour:integer;
    Kolor:array[1..15] of array[1..13] of byte;
    Blok:array[1..15] of array[1..13] of boolean;
    X,Y:Byte;



procedure Drop;
var X,Y:byte;
begin
 For Y:=13 downto 2 do
     For X:=1 to 15 do
       begin
         Blok[X,Y]:=Blok[X,Y-1];
         Kolor[X,Y]:=Kolor[X,Y-1];
       end;
end;

procedure BlockMaker;
var COD:byte; //Color of the day
    SOB:byte; //Shape of Block
    X,Y:byte;
begin
  X:=8; Y:=1;
  Blok[X,Y]:=True;
  SOB:=Random(5)+1;
  COD:=Random(6)+1;
  case SOB of
   1: begin
       Blok[X+1,Y]:=True;
       Blok[X,Y+1]:=True;
       Blok[X-1,Y+1]:=True;
       Kolor[X+1,Y]:=COD;
       Kolor[X,Y+1]:=COD;
       Kolor[X-1,Y+1]:=COD;
      end;
   2: begin
       Blok[X+1,Y]:=True;
       Blok[X-1,Y]:=True;
       Blok[X-1,Y+1]:=True;
       Kolor[X+1,Y]:=COD;
       Kolor[X-1,Y]:=COD;
       Kolon[X-1,Y+1]:=COD;
      end;
   3: begin
       Blok[X+1,Y+1]:=True;
       Blok[X,Y+1]:=True;
       Blok[X-1,Y+1]:=True;
       Kolor[X+1,Y+1]:=COD;
       Kolor[X,Y+1]:=COD;
       Kolor[X-1,Y+1]:=COD;
      end;
   4: begin
       Blok[X-1,Y]:=True;
       Blok[X-1,Y+1]:=True;
       Blok[X,Y+1]:=True;
       Kolor[X-1,Y]:=COD;
       Kolor[X-1,Y+1]:=COD;
       Kolor[X,Y+1]:=COD;
      end;
   5: begin
       Blok[X-1,Y]:=True;
       Blok[X+1,Y]:=True;
       Blok[X+2,Y]:=True;
       Kolor[X-1,Y]:=COD;
       Kolor[X+1,Y]:=COD;
       Kolor[X+2,Y]:=COD;
      end;
end;

procedure Board;
var Y,X:byte;
begin
  For Y:=1 to 13 do
    begin
      For X:=1 to 15 do
       begin
        if Blok[X,Y] then

           case Kolor[X,Y] of
            1 : TextColor(Blue);
            2 : TextColor(-939497217);
            3 : TextColor(Green);
            4 : TextColor(LightGreen);
            5 : TextColor(Red);
            6 : TextColor(Yellow);
            end

          else TextColor(LightGray);
       Write('# ');
       end;
     WriteLn;
     end;
end;




begin
  randomize;
 // test barev

   For Y:=1 to 13 do
   For X:=1 to 15 do
    begin
     Kolor[X,Y]:=Random(6)+1;
     if (Random<0.5) then Blok[X,Y]:=True else Blok[X,Y]:=False;
    end;
repeat
  Board;
  readln;
  Drop;
until False;





  readln;
end.