[alexusankov]

Сообщение от GoryachevEugeneS

Спасибо большое, да, с заданием немного напутал , но почему так получается?

Код:

var Old:array [0..10] of String;
New:array of String;
NewRevers : array of String;
i : integer;
begin
for i := 0 to 10 do old[i] := IntToStr(i); // Делаем массив который 'дан'
SetLength(New,Length(Old));               // Массив с номальным порядком
SetLength(NewRevers,Length(Old));      // Массив задом наперед
for i:=Low(Old) to High(Old) do begin
  New[i] := Old[i];
  NewRevers[High(Old)-i] := Old[i];
end;
for i:=Low(Old) to High(Old) do begin
  ListBox1.Items.Add(New[i] + ' ' + NewRevers[i]); // Кладем в ListBox элемент первого массива и через пробел второго
end;