Someone

procedure drawTerrain;
    var
    	x,y:integer;
    begin
    	x:=1;
    	y:=5;
    	repeat
    		repeat
    		if material[x,y]=0 then
    			begin
    				gotoxy(x,y);
    				textbackground(black);
    				write(' ');
    			end
    		else if material[x,y]=1 then 
    			begin
    				gotoxy(x,y);
    				textbackground(Brown);
    				write(' ');
    				textbackground(black);
    			end;
    			x:=x+1
    		until(x=81);
    		x:=1;
    		y:=y+1;
    	until(y=19);
    end;