[alexusankov]

Судя по тому, как Вы лихо устанавливаете (зачем то) размер первому и второму массиву, то задача очень у вас странная :-)
Присоединяюсь к вышесказанному)). Пока писал ответ, меня опередили)

Код:

procedure TForm1.Button1Click(Sender: TObject);
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;

end.