uses System.SysUtils;

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

  Text := '';
  for I := Low(Numbers) to High(Numbers) do
  begin
    Text := Text + Numbers[I].ToString;
    if I < High(Numbers) then
      Text := Text + '; ';
  end;
  //text is '2; 3; 5; 7; 11; 13; 17'

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