[mak-karpov]

Как вариант - в разделе исходники - Heroes of DarkNess, как другой -

Код:

TField = record
   Texture : ShortString;
   Param1 : ShortString;
   Param2 : ShortString;
   ...
end;
TMap : array [ширина карты, высота карты] of Tfield;
...

Map : file of TMap;
CMap : TMap;
...
AssignFile(Map, 'C:\...');
reset(map);
read(map,cmap);
closefile(map);