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.