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;

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