Smart pascal source code


type
  TRec = record
    V: Integer;
    N: string;
    procedure ShowWriteln;
    begin
      Writeln(IntToStr(V) + ', ' + N);
    end;
  end;
  
{ main.pas unit}
var
  a: array of Integer;
  r: array of TRec;
  i: Integer;
  buf: TRec;

  procedure PopAFew(n: Integer; a: array of Integer; r: array of TRec);
  begin
    while n > 0 do
    begin
      Writeln(a.Pop);
      Writeln(': ');
      r.Pop.ShowWriteln;
      Dec(n);
    end;
  end;

procedure printData;
begin
 Writeln('Remain: ' + IntToStr(Length(a)) + ', ' + IntToStr(Length(r)));
end;

begin
  for i := 1 to 10 do
  begin
    buf.V := i * 2;
    buf.N := UpperCase(IntToHex(buf.V, 2));
    r.Push(buf);
    a.Push(i);
  end;

  PopAFew(5, a, r);
{ outputs
  10 : 20, 14
   9 : 18, 12
   8 : 16, 10
   7 : 0E
   6 : 0C
}
  printData;  // Remain: 5, 5


  i := a.Pop;
  buf := r.Pop;
  printData;  // Remain: 4, 4

  PopAFew(4, a, r);
{ outputs
   4 : 8, 08
   3 : 6, 06
   2 : 4, 04
   1 : 2, 02
}
  printData;  // Remain: 0, 0

      var a = [],
         r = [],
         i = 0;
      var buf = {V:0,N:""};
      function printData() {
         WriteLn(("Remain: "+(a.length).toString()+", "+(r.length).toString()));
      };
      function PopAFew(n, a$1, r$1) {
         while (n>0) {
            WriteLn(a$1.pop());
            WriteLn(": ");
            TRec$ShowWriteln(r$1.pop());
            --n;
         }
      };
      for(i=1;i<=10;i++) {
         buf.V = i*2;
         buf.N = (IntToHex2(buf.V)).toUpperCase();
         r.push(Clone$TRec(buf));
         a.push(i);
      }
      PopAFew(5,a,r);
      printData();
      i = a.pop();
      Copy$TRec(r.pop(),buf);
      printData();
      PopAFew(4,a,r);
      printData();

/// TRec = record
///  [line: 73, column: 3, file: uMain]
function Copy$TRec(s,d) {
   d.V=s.V;
   d.N=s.N;
   return d;
}
function Clone$TRec($) {
   return {
      V:$.V,
      N:$.N
   }
}
/// procedure TRec.ShowWriteln(var Self: TRec)
///  [line: 76, column: 15, file: uMain]
function TRec$ShowWriteln(Self$1) {
   WriteLn(((Self$1.V).toString()+", "+Self$1.N));
}
function IntToHex2(v) { var r=v.toString(16); return (r.length==1)?"0"+r:r }