Задача на массив

[Jack125]

Добрый день. Возникла небольшая проблема с задачей:

Дан одномерный массив размера n. Скопировать значения полей массива в другой массив с таким же размером.

Сам код я сделал, исходный массив заполняю случайными числами. Есть 2 кнопки: первая - генерация случайных чисел (от 1 до 20), вторая - копирование значений первого массива во второй. Проблема в том, что после запуска программы во второй массив заполняют не заданные в первом массиве числа, а одно и то же число, равное последнему элементу первого массива, и я никак не могу найти ошибку. Вот полный код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array[1..20]of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,ch:integer;
begin
for ch:=1 to 9 do
begin
StringGrid1.Cells[ch-1,0]:=IntToStr(random(21));
for i:=1 to 9 do
a[i-1]:=StrToInt(StringGrid1.Cells[ch-1,0]);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var n,i,num:integer;
begin
n:=9;
num:=0;
for i:=1 to n do
begin
StringGrid2.Cells[num,0]:=IntToStr(a[i-1]);
num:=num+1;
end;
end;

end.

где n - размер первого массива
num - номер столбца второго массива
ch - счетчик для заполнения случ. числами первого массива

В чем здесь может заключаться моя ошибка?

[Риндера]

Не поняла... Тебе просто-напросто скопировать значения из первого массива во второй? И, видимо, массив одномерный. Если так, то...

procedure TForm1.Button1Click(Sender: TObject);    // заполнение 1 массива
var i: integer;
begin
  StringGrid1.ColCount := StrToInt(Edit1.Text);    // делаем в 1 массиве сколько_нужно столбцов
  for i := 0 to n - 1 do
    StringGrid1.Cells[i,0] := random(21);   // заполняем случайными числами
end;

procedure TForm1.Button2Click(Sender: TObject);    // копирование во 2 массив
var i: integer;
begin
  StringGrid2.ColCount := StringGrid1. ColCount;    // уравниваем размеры массивов, во избежание ошибков
  for i := 0 to StringGrid2.ColCount - 1 do
    StringGrid2.Cells[i,0] := StringGrid1.Cells[i,0];   // просто копируем
end;