uses System.SysUtils;

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

  Text := '';
  for Number in Numbers do
  begin
    if Text <> '' then
      Text := Text + '; ';
    Text := Text + Number.ToString;
  end;
  //text is '2; 3; 5; 7; 11; 13; 17'

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