str:=inttostr(Map.xlen)+'|'+ //размер карты по ширине
      inttostr(Map.ylen)+'|'+            //размер карты по длине
      floattostr(Map.stepx)+'|'+      //масштаб карты по ширине
      floattostr(Map.stepy)+'|'+     //масштаб карты по длине
      inttostr(Map.startx)+'|'+        //начало данных на карте по ширине
      inttostr(Map.starty)+'|'+     //начало данных на карте по длине
      inttostr(Map.lastx)+'|'+      //конец данных на карте по ширине
      inttostr(Map.lasty)+'|'+      // конец данных на карте по длине
     inttostr(Map.width)+'|'+    //количество точек по ширине
      inttostr(Map.height)+'|'+//количество точек по длине
      floattostr(Map.level)+'|';//базовый уровень
    Writeln(F, str);
    str:=inttostr(len);
    Writeln(F, str);//длина заголовка
// Map contains single values
    for i:=Map.starty to Map.lasty do
    BlockWrite(FT, Map.zmatrix[i][Map.startx], Map.width, bytes);

 import re
inputfile = '58637-1-102.00_00_01.dat'
fn = open (inputfile,mode='r',encoding='latin_1')
for num, line in enumerate(fn):
    if num<1:
        s=line.split('|')
        print (s)
fn.close()
xlen=s[0]
ylen=s[1]
stepx=s[2]
stepy=s[3]
print(xlen)
print(ylen)
print(stepx)
print(stepy)
result = re.sub(r',', '.', stepx)
print(result)
print(int(xlen)+float(result))

 // Map contains single values
    for i:=Map.starty to Map.lasty do
         BlockWrite(FT, Map.zmatrix[i][Map.startx], bytes);