dojdu na cilove misto a podivam se, jak jsem daleko... :-)
Repeat While (Row[I] <> ',') and (Row[I] <> '.') do Begin Case Row[I] of 'N': DY := 1; 'S': DY := -1; 'W': DX := -1; 'E': DX := 1; End; { case } Inc (I); End; If (DX = 0) or (DY = 0) then SR := S else SR := S / Sqrt(2); X := X + SR * DX; Y := Y + SR * DY; until Row[I] = '.';