На самом деле это очень просто, и делается в несколько шагов:
1. Нада создать масив чисел (в данном случае a : array [0..5] of integer).
2. Пользователь вводит число в поле (в данном случае edit1).
3. Программа считывает числа из поля в масив (в данном случае при нажатии кнопки Button1)
А теперь к делу. (ща благодаря тебе Delphi установлю:) Приведу пример простой программы, которая считывает числа в массив:
Сначала выкень на форму поле типа TEdit, а потом кнопку типа TButton. Потом пиши прогу:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array [1..5] of integer;
{создаем масив. в данном случае он может
испольцоваться в любом месте программы.}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin {Собственно функция считывания содержимого поля в масив.}
try {может произойти ошибка, если в поле символы, а не
цыфры, лучше защетить программу от збоев.}
a[1]:=strtoint(edit1.Text);
{если в поле число, тогда переводим его в формат integer
и присваеваем 1 ячейке масива.}
except showmessage('Произошла ошибка запеси в масив.');
end;
end;

end.

тока картинка чуть не там прицепилась:)

заходите на programmersforum.ru там много умных людей программирующих на Дельфи и не только

А при повторном нажатии Button он снова запишет содержимое Edit1 в ячейку a[1] ....? Или я не вьехал, или чего-то не хватает...

var
Form1: TForm1;
a:array [1..5] of integer;
{создаем масив. в данном случае он может
испольцоваться в любом месте программы.}
NumPos: Integer; {номер позиции}

procedure TForm1.Create
begin
{инициалезируем NumPos}
NumPos:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin {Собственно функция считывания содержимого поля в масив.}
try {может произойти ошибка, если в поле символы, а не
цыфры, лучше защетить программу от збоев.}
a[NumPos]:=strtoint(edit1.Text);
if NumPos=5 then {если конец массива то начинаем с начала}
NumPos:=1
else
NumPos:=NumPos+1; {сдвигаем позицию}
{если в поле число, тогда переводим его в формат integer
и присваеваем 1 ячейке масива.}
except
showmessage('Произошла ошибка запеси в масив.');
end; {try}
end;