{$J-}
type
  Rooster = record
   id: integer;
  end;
  RoosterArray = array[0..2] of Rooster;

procedure asshole(const roosters: array of Rooster);
  var
    r: ^RoosterArray;
    i: integer;
  begin
    r := @roosters;
    for i := 0 to 2 do r^[i].id := i + 1
  end;

const
  roosters: RoosterArray = ((id: 0), (id: 0), (id: 0));
var
  i: integer;
begin
  asshole(roosters);
  for i := 0 to 2 do Writeln(roosters[i].id)
end.