Методы расширения

procedure integer.Hello;
begin
  writeln(Self);
end;
 
type iarr = System.Array;
 
procedure iarr.Hello;
begin
  foreach x: integer in Self do
    write(x,' ');
end;  
 
begin
  var i: integer := 777;
  i.Hello;
  var a: array of integer := (1,3,5);
  a.Hello;
end.