Smart pascal source code


type
  TElem = array [0..1] of Integer;

{ unit1.pas }
var
  a: array of TElem;
  e: array[0..1] of Integer;

Begin
  a.SetLength(2);

  a[0, 0] := 1;
  a[0, 1] := 2;
  a[1, 0] := 3;
  a[1, 1] := 4;

  Writeln(a[0, 0]);  // 1
  Writeln(a[0, 1]);  // 2
  Writeln(a[1, 0]);  // 3
  Writeln(a[1, 1]);  // 4

  a.Swap(0, 1);
WriteLn('-----');
  for e in a do begin
  Writeln(e[0]);   // 3 1
  Writeln(e[1]);   // 4 2

function $ArraySwap(a, i1, i2) {
	var t = a[i1];
	a[i1] = a[i2];
	a[i2] = t
}
function $ArraySetLenC(a, n, d) {
	var o = a.length;
	if (o == n)
		return;
	if (o > n)
		a.length = n;
	else
		for (; o < n; o++)
			a.push(d());
}

      var a = [],
         e = [0,0],
         a$1 = 0;
      $ArraySetLenC(a,2,function (){return [0,0]});
      a[0][0] = 1;
      a[0][1] = 2;
      a[1][0] = 3;
      a[1][1] = 4;
      WriteLn(a[0][0]);
      WriteLn(a[0][1]);
      WriteLn(a[1][0]);
      WriteLn(a[1][1]);
      $ArraySwap(a,0,1);
      WriteLn("-----");
      var $temp1;
      for(a$1=0,$temp1=a.length;a$1<$temp1;a$1++) {
         e = a[a$1].slice(0);
         WriteLn(e[0]);
         WriteLn(e[1]);
      }