Smart pascal source code


function Ascending(a, b: Integer): Integer;
begin
  Result := a - b;
end;

function Descending(a, b: Integer): Integer;
begin
  Result := b - a;
end;

{ unit1.pas }

var
  a: array of Integer;
  i: integer;
Begin
a := [1,3,2,5,4];

a.Sort(@Ascending);

for i in a do
  Writeln(i);  // 1 2 3 4 5
  Writeln('');

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

  a.Sort(Descending);

  for i in a do
    Writeln(i);
    Writeln('');  // 5 4 3 2 1

      var a = [],
         i = 0;
      var a$1 = 0;
      var a$2 = 0;
      a = [1, 3, 2, 5, 4].slice();
      a.sort(Ascending);
      var $temp1;
      for(a$1=0,$temp1=a.length;a$1<$temp1;a$1++) {
         i = a[a$1];
         WriteLn(i);
      }
      WriteLn("");
      a = [1, 3, 2, 5, 4].slice();
      a.sort(Descending);
      var $temp2;
      for(a$2=0,$temp2=a.length;a$2<$temp2;a$2++) {
         i = a[a$2];
         WriteLn(i);
      }
      WriteLn("");

function Descending(a$3, b) {
   return b-a$3;
};
function Ascending(a$4, b$1) {
   return a$4-b$1;
};