unit PABCExtensions; 
end.

begin
  Writeln('Hello world!');
end.

type
  t1<T>=class
    
    b: byte;
    
    public class function GetNew := default(t1<T>);
  
  end;
 
begin
  var a1 := t1&<byte>.GetNew;
  //a1;//тут если поставить точку - не показывает t1.b
  
  var a2 := t1&<byte>.Create;//а тут вообще считает что a2 это процедура, поэтому точка не работает
end.

type 
  Less[T] = typeclass
    function operator<(x, y: T): boolean;
  end;
  Less[integer] = instance
    function operator<(x, y: integer): boolean := x<y;
  end;
 
function MinIndex<T>(a: array of T): integer; where Less[T];
begin
  Result := -1;
  var min := a[0]; 
  for var i:=0 to a.Length

procedure F(x: object);
begin
  exit;
end;
 
begin
  F(1); // <--
end.

begin
  try
  except
    on e: EInvalidOp do // Если добавить сюда begin-end ошибка исчезнет.
  end; // <--
end.

uses Tuples, Writer;
var
  A: Tuple3;
  B, C, D: IntTuple2;
  
begin
  B := IntTpl2(1, 2);
  C := IntTpl2(3, 4);
  D := IntTpl2(5, 6);
  A := Tpl3(B, C, D);
  Println(A);
  Println(B[0]);
end.