class cGameObject
  public:
  FMySprite : cBitmap;
  FPositionX, FPositionY : Int;
end;

struct cTile
  FX, FY : Int;
  Solid : Boolean; // if you want;
end;

class cMap
  public:
  FMapTileSet : cBitmap; // the bitmap that contains the tileset;
  F2DMatrixTiles : array of array of cTile; // dynamic 2D arraw of cTile;
  FListOfObjects : array of cGameObject;
  procedure ReadMapFromTxtFile(FileName : string);
  procedure ReadObjectsFromTxtFile(FileName : string);
end;

procedure cMap.ReadMapFromTxtFile(FileName : string);
begin
  // load the values of FX and FY of the tiles from the file.
  // for example, the tile[2,3] has FX = 3
  // and the tiles have 16x16 size
  // then, on the screen, it will be painted a cutted rectangle picture from the FMapTileSet
  // with these values (FX * 16, FY * 16, (FX * 16) + 16, (FY * 16) + 16)
  // them, FX and FY mean with tile will be painted on the screen.

  // to implement this function you will need I/O knowledge(read and write bytes in a file);
end;

procedure cMap.ReadObjectsFromTxtFile(FileName : string);
begin
  // Loop for, where for each object saved in the txt file, create a object cGameObject in the memory, in the matrix FListOfObjects;
  // also, read in the file, the position of the object and put it in FPositonX and FPostionY;
  // this way, objects and tiles has no link between each other, just collision, if you want, for example;

  // to implement this function you will need I/O knowledge(read and write bytes in a file);
end;

procedure DrawMapAndObjects(Map: cMap);
begin
  // FIRST, DRAW THE TILES:
  // Draw only the tiles visible in the screen, don't lose time drawing not visible tiles;
  // It will not affect the game logic, if a object collide in a not-visible tile(out of the screen), it will
  // use the variable FSolid of cTile to know if the tile is Solid, the cGameObject will not know if the
  // tile is solid by the drawn image of the tile.
 
  //SECOND, DRAW OBJECTS
  // The same, draw only the visible ones. Remember, the objects are CREATED in the
  // ReadObjectsFromTxtFile procedure, but they will not be necessarily drawn in the screen, but
  // they MUST be created;
end;

// In the MAIN procedure/function

procedure Main;
var
  FCurrentMap : cMap;
begin
  // do initialization stuff

  // Initialize the map
  FCurrentMap := cMap.Create;
 
  FCurrentMap.ReadMapFromTxtFile('map001.txt'); // Create tiles;
  FCurrentMap.ReadObjectsFromTxtFile('map001.txt');  // Create objects;

  DrawMapAndObjects(FCurrentMap); // Draw visible tiles and visible objects
end;