type  R3 = Array[1..10,1..20,1..2] of byte;
      miniR3 = Array[1..4,1..4,1..2] of byte;

var Matriz  : R3;
    Next: miniR3;

Procedure ImprimeProxima( Xs, Ys, Xf, Yf, Is, Ifi, Js, Jfi : byte; mat : miniR3  );
var x, y : byte;
begin
    clrscr;
    Window( Xs, Ys, Xf, Yf );
    for y := Is to Ifi do
        for x:= Js to Jfi do
            if mat[x,y,1] <> 0 then
            begin
                GotoXY( x, ( (Ifi + 1) - y ) );
                TextColor( mat[x,y,2] );
                write( chr(254) );
            end;
end;