Program NewProject22;
const
mapsize=4;
var
map: array [0..mapsize, 0..mapsize] of integer;
x,y,v,u,w,h:integer;
line:string;
res:resource;
tile:array [0..1] of image;

		procedure LoadMap;
		begin
				res:=OpenResource('/map.txt');
				for y := 0 to mapSize do 
						begin
						line := ReadLine(res);
						for x := 0 to mapSize do
						map[x,y] :=stringtointeger(GetChar(line,x));
						end;
				CloseResource(res);
		end;

Begin
	w:=5;
	tile[0]:=loadimage('/tile2.png');
	tile[1]:=loadimage('/tile1.png');
	loadmap;
repeat
	for x:=0 to mapsize do
	for y:=0 to mapsize do
	begin
			//tilew ширина тайла
			//tileh это высота тайла
			u:=x*tilew;
			v:=y*tileh;
			drawimage(tile[map[x,y]],u,v);
 end;
	Repaint;	
until false;
End.