двумерный массив delphi 7

[k166]

здравствуйте,могли вы мне помочь,мне хотелось чтобы при выводе массива каждый элемент подписывался номером.Как это сделать?

задача:Вычислить сумму и количество положительных элементов каждого столбца двухмерного массива A.
вот что у меня получилось:


Type
M=array [1..3,1..5] of Integer ;
var
Form1: TForm1;
A:M;
i,j,n:Integer;
s: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
for i := 1 to 3 do
for j:=1 to 5 do
begin
A[i,j]:=random(5);
memo1.Lines.Add(IntToStr(a[i,j]));
end;
Button2.Visible:=True;
Button4.Visible:=True;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Memo1.Clear
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Close
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
s:=0;
for i := 1 to 3 do
begin
for j:=1 to 5 do
If A[i,j]>=0 then
begin
s:=s+A[i,j];
end;
memo1.Lines.Add('сумма элементов'+IntToStr(s));
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
n:=0;
for i := 1 to 3 do
begin
for j:=1 to 5 do
If A[i,j]>=0 then
begin
n:=n+1;
end;
memo1.Lines.Add('количество элементов в строке'+ IntToStr(n));
end;
end;
end.