var
  Numbers, OddItems: TArray<Integer>;
  Number: Integer;
begin
  Numbers := [1, 2, 3, 4, 5];

  OddItems := [];
  for Number in Numbers do
    if Number mod 2 = 1 then
      OddItems := OddItems + [Number];
  //oddItems is [1, 3, 5]

  for Number in OddItems do
    Write(Number, ' ');
  WriteLn;
end.