var
  Values: TArray<Integer>;
  Value, Count, I: Integer;
begin
  Value := 5;
  Count := 3;

  SetLength(Values, Count);
  for I := 0 to High(Values) do
    Values[I] := Value;
  //values is [5, 5, 5]

  for I in Values do
    Write(I, ' ');
  WriteLn;
end.