uses System.SysUtils;

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

  Text := '';
  for I := Low(Numbers) to High(Numbers) do
  begin
    if I mod 2 = 1 then
      Continue;
    if Text <> '' then
      Text := Text + '-';
    Text := Text + IntToStr(Numbers[I]);
  end;
  //text is '2-5-11-17'

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