From f904807696dd33643b2e170cc83aebe26fce6fc6 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Tue, 1 Feb 2022 03:26:49 +0400
Subject: [PATCH] small fix of json parser.

---
 src/vpkJsonParser.Mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vpkJsonParser.Mod b/src/vpkJsonParser.Mod
index a599e91..517c480 100644
--- a/src/vpkJsonParser.Mod
+++ b/src/vpkJsonParser.Mod
@@ -124,7 +124,7 @@ PROCEDURE GetNoneTerminalKeys(self : JsonTypePointer; VAR destination : ARRAY OF
 VAR
     i: LONGINT;
 BEGIN
-    FOR i := 0 TO LEN(self.NonTerminalKeys) - 1 DO
+    FOR i := 0 TO self.NonTerminalNumber - 1 DO
         destination[i] := self.NonTerminalKeys[i];
     END;
 END GetNoneTerminalKeys;