#pas
.....
      CmdMatr: // [n:byte] матрица из точки %n
      begin
        if not FProgram.ReadByte(i) then begin Err := 2; Exit; end;
        Mtx := ReadMatrix(self.X[i]);
        if Mtx=nil then begin Err :=1 ; exit; end;
        if not FStack.Pop(y) then begin Err := 1; Exit; end;
        if not FStack.Pop(x) then begin Err := 1; Exit; end;
        mx := round(y); my := round(x);
        Fd := Mtx._Get(mx, my);
        if _IsNull(Fd) then begin Err:=1; exit; end;
        FStack.Push(ToReal(Fd));
      end;
.....