Ошибка в алгоритме изменения координат

{$apptype windows}
uses GraphABC, System;
 
type
  tpmap = record
    name: string;
    sort: integer;
    x,y: real;
    road: array of record
      id: integer;
      tp: string;
    end;
  end;
 
var
  types: array of string;
  map: array of tpmap;
  current: integer = 77;
  
begin
  if (FileExists('mpf.dat')=true) or (current<>0) then
  begin
    if (FileExists('mpf.dat')=true) then
    begin
      var d: TextFile;
      assign(d,'mpf.dat');
      reset(d,encoding.UTF8);
      read(d,current);
      close(d);
      d.Erase;
    end;
    window.SetSize(500,500);
    window.Title:='Biker 2 Map Viewer';
    window.CenterOnScreen;
    window.IsFixedSize:=true;
    {$region MAP}
    begin
      var mapfile: TextFile;
      var mapid1: integer;
      var mapid2: integer;
      var mapinput: string;
      var typeid: integer;
      if FileExists('map.dat')=true then
      begin
        reset(mapfile,'map.dat',encoding.UTF8);
        while mapfile.Eof<>true do
        begin
          //try
          readln(mapfile,mapinput);
          if mapinput.left(6)='towns=' then
          begin
            SetLength(map,Copy(mapinput,7,16).ToInteger);
          end;
          if mapinput.left(8)='newtype=' then
          begin
            typeid+=1;
            SetLength(types,typeid);
            types[typeid-1]:=Copy(mapinput,9,32);
          end;
          if mapinput.left(5)='town=' then
          begin
            mapid1:=StrToInt(Copy(mapinput,6,32));
            mapid2:=0;
          end;
          if mapinput.left(5)='name=' then
          begin
            map[mapid1].name:=Copy(mapinput,6,64);
          end;
          if mapinput.left(5)='type=' then
          begin
            map[mapid1].sort:=StrToInt(Copy(mapinput,6,32));
          end;
          if mapinput.left(5)='posx=' then
          begin
            map[mapid1].x:=StrToFloat(Copy(mapinput,6,64));
          end;
          if mapinput.left(5)='posy=' then
          begin
            map[mapid1].y:=StrToFloat(Copy(mapinput,6,64));
          end;
          if mapinput.left(5)='road=' then
          begin
            mapid2+=1;
            SetLength(map[mapid1].road,mapid2);
            map[mapid1].road[mapid2-1].id:=StrToInt(mapinput.ToWords[1])-1;
            map[mapid1].road[mapid2-1].tp:=mapinput.ToWords[2];
          end;
          //except
          //  on System.Exception do
          //end;
        end;
        close(mapfile);
      end;
    end;{$endregion}
    var map0: array of tpmap;
    var count: array of integer;
    var count1: array of integer;
    var countid: integer;
    for var i:=0 to map[current].road.Length-1 do
    begin
      inc(countid);SetLength(count1,countid);
      count1[countid-1]:=map[current].road[i].id;
      for var j:=0 to map[map[current].road[i].id].road.Length-1 do
      begin
        inc(countid);SetLength(count1,countid);
        count1[countid-1]:=map[map[current].road[i].id].road[j].id;
      end;
    end;
    countid:=0;
    var check: boolean;
    for var i:=0 to count1.Length-1 do
    begin
      check:=false;
      for var j:=(i+1) to count1.Length-1 do
      begin
        if count1[i]=count1[j] then check:=true;
      end;
      if check=false then
      begin
        inc(countid);
        SetLength(count,countid);
        count[countid-1]:=count1[i];
      end;
    end;
    var maxx, maxy, minx, miny: real;
    var dx, dy, MASTER: real;
    for var i:=0 to map.Length-1 do
    for var j:=0 to count.Length-1 do
    if i=count[j] then
    begin
      if maxx<map[i].x then maxx:=map[i].x;
      if maxy<map[i].y then maxy:=map[i].y;
      if minx>map[i].x then minx:=map[i].x;
      if miny>map[i].y then miny:=map[i].y;
    end;
    dx:=maxx-minx;
    dy:=maxy-miny;
    if (dx) > (dy) then
      MASTER:=(window.Height/dy)
      else MASTER:=(window.Width/dx);
    for var i:=0 to map.Length-1 do
    begin
      map[i].x:=((map[i].x-map[current].x)*MASTER)+250;
      map[i].y:=250-((map[i].y-map[current].y)*MASTER);
    end;
    for var i:=0 to map.Length-1 do
    for var k:=0 to count.Length-1 do
    if i=count[k] then
    begin
      if i=current then
      case map[i].sort of
        0: for var j:=9 downto 1 do if j mod 3 = 0 then DrawCircle(round(map[i].x),round(map[i].y),j);
        1: for var j:=15 downto 1 do if j mod 3 = 0 then DrawCircle(round(map[i].x),round(map[i].y),j);
        2: for var j:=27 downto 1 do if j mod 3 = 0 then DrawCircle(round(map[i].x),round(map[i].y),j);
      end
      else
      case map[i].sort of
        0: DrawCircle(round(map[i].x),round(map[i].y),9);
        1: DrawCircle(round(map[i].x),round(map[i].y),15);
        2: DrawCircle(round(map[i].x),round(map[i].y),27);
      end;
      for var j:=0 to map[i].road.Length-1 do
      begin
        if map[i].road[j].tp.ToLower='g' then
        line(round(map[i].x),round(map[i].y),round(map[map[i].road[j].id].x),round(map[map[i].road[j].id].y),color.Orange)
        else
        line(round(map[i].x),round(map[i].y),round(map[map[i].road[j].id].x),round(map[map[i].road[j].id].y),color.OliveDrab);
      end;
      case map[i].sort of
        0: TextOut(round(map[i].x)+5,round(map[i].y)-13,map[i].name);
        1: TextOut(round(map[i].x)+8,round(map[i].y)-20,map[i].name);
        2: TextOut(round(map[i].x)-(map[i].name.Length*4),round(map[i].y)-30,map[i].name);
      end;
    end;
  end
  else window.Close;
end.