fix exception when run test

Author: tranleduy2000

libCompiler/src/main/assets/code_sample/strutils/AnsiCompareStr.pas

@@ -0,0 +1,31 @@
+Program Example49;
+
+{ This program demonstrates the AnsiCompareStr function }
+
+Uses
+  sysutils;
+
+Procedure TestIt (S1, S2 : String);
+
+Var
+  R : Longint;
+
+begin
+  R := AnsiCompareStr(S1, S2);
+  Write ('"', S1, '" is ');
+  If R < 0 then
+    write ('less than ')
+  else If R = 0 then
+    Write ('equal to ')
+  else
+    Write ('larger than ');
+  Writeln ('"', S2, '"');
+end;
+
+Begin
+  Testit('One string', 'One smaller string');
+  Testit('One string', 'one string');
+  Testit('One string', 'One string');
+  Testit('One string', 'One tall string');
+End.
+{http://www.freepascal.org/docs-html-3.0.0/rtl/sysutils/ansicomparestr.html}

libCompiler/src/main/assets/code_sample/sysutils/AnsiCompareStr.pas

@@ -16,11 +16,11 @@
 
 package com.duy.pascal.backend.builtin_libraries;
 
+import com.duy.pascal.backend.ast.expressioncontext.ExpressionContextMixin;
+import com.duy.pascal.backend.ast.runtime_value.references.PascalReference;
 import com.duy.pascal.backend.builtin_libraries.annotations.PascalMethod;
 import com.duy.pascal.backend.builtin_libraries.runtime_exceptions.EConvertError;
 import com.duy.pascal.backend.runtime_exception.RuntimePascalException;
-import com.duy.pascal.backend.ast.runtime_value.references.PascalReference;
-import com.duy.pascal.backend.ast.expressioncontext.ExpressionContextMixin;
 
 import java.text.DecimalFormat;
 import java.util.Map;
@@ -66,6 +66,7 @@ public void declareFunctions(ExpressionContextMixin parentContext) {
     public void appendStr(PascalReference<StringBuilder> dest, StringBuilder s) throws RuntimePascalException {
         dest.set(dest.get().append(s));
     }
+
     @PascalMethod(description = "Convert a string to an integer value.", returns = "int")
     public int strToInt(StringBuilder s) throws EConvertError {
         try {
@@ -272,7 +273,7 @@ public double StrToFloat(StringBuilder input) throws EConvertError {
 
     @PascalMethod(description = "Compare 2 ansistrings, case sensitive, ignoring accents characters.")
     public double AnsiCompareStr(StringBuilder s1, StringBuilder s2) throws EConvertError {
-        return (s1.toString().compareTo(s2.toString()));
+        return s1.toString().compareTo(s2.toString());
     }
 
     @PascalMethod(description = "Return a lowercase version of a string.")

libCompiler/src/main/assets/code_sample/strutils/AnsiLowerCase.pas renamed to libCompiler/src/main/assets/code_sample/sysutils/AnsiLowerCase.pas

@@ -119,10 +119,11 @@ public void testMath() {
     }
 
     public void testStrutils() {
-        File parent = new File(dir + "strutils");
+        File parent = new File(dir + "sysutils");
         for (File file : parent.listFiles()) {
             if (file.getName().endsWith(".pas")) {
                 try {
+                    System.out.println(file);
                     runProgram(file.getPath());
                 } catch (RuntimePascalException e) {
                     e.printStackTrace();

libCompiler/src/main/java/com/duy/pascal/backend/builtin_libraries/SysUtilsLibrary.java

@@ -2,9 +2,9 @@
 type
     BooksPtr = ^Books;
     Books = record
-        title: packed array [1..50] of char;
-        author: packed array [1..50] of char;
-        subject: packed array [1..100] of char;
+        title: string;
+        author: string;
+        subject: string;
         book_id: longint;
     end;