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