Smart pascal source code


var s = 'string';
WriteLn(s[0]);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Errors >>>>
Runtime Error: Lower bound exceeded! Index 0 [line: 2, column: 10]
Result >>>>

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function $SIdx(s,i,z) {
	if (i<1) throw Exception.Create($New(Exception),"Lower bound exceeded! Index "+i.toString()+z);
	if (i>s.length) throw Exception.Create($New(Exception),"Upper bound exceeded! Index "+i.toString()+z);
	return s.charAt(i-1);
}
function $New(c) { var i={ClassType:c}; c.$Init(i); return i }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var s = "";

/* <<< main JS >>> */

   s = "string";
   WriteLn($SIdx(s,0,""));