uses System.SysUtils;

var
  Numbers: TArray<Integer>;
  Number: Integer;
  Text: string;
begin
  Numbers := [2, 3, 5, 7, 11, 13, 17, 19];

  Text := '';
  for Number in Numbers do
  begin
    if Number > 10 then
      Break;
    if Text <> '' then
      Text := Text + '-';
    Text := Text + IntToStr(Number);
  end;
  //text is '2-3-5-7'

  WriteLn('text is ', Text);
end.