Fórum Delphi xe8.Como botar todo o conteúdo de um Array em uma única variável? #562699

Var
  A1, i: Integer;
  Meu_Array: Array [0 .. 50] of Integer;
begin
  A1 := StrToInt(Edit2.Text);

  for i := 0 to 50 do
    Meu_Array[i] := A1; // Todos os termos do array serão o valor de A1
end;

  
TNumeros = record
    Valores: Array [0..50] of Integer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Meus_Numeros: TNumeros;
   Meu_ArrayVar: Array [0..50] of TNumeros;
   i, j: Byte;
begin
   mmo1.Lines.Clear;
   for i := 0 to 50 do
      Meus_Numeros.Valores[i] := i;
   for i := 0 to 50 do
      Meu_ArrayVar[i] := Meus_Numeros;
   for i := 0 to 50 do
   begin
      for j := 0 to 50 do
      begin
         if Meu_ArrayVar[i].Valores[j] = 0 then
            mmo1.Lines.Add( '- POSIÇÃO '+IntToStr(i)+' -' );
         mmo1.Lines.Add( IntToStr( Meu_ArrayVar[i].Valores[j] ) );
      end;
   end;
end;