Красиво вывести матрицу

[schibeki]

Всем привет,я читал,как вывести типа того матрицу в Label
1111
2222
3333
но так у меня и не получилось сделать. я вывожу в мемо и некрасиво получается вот код собственно

var

a: array [1..10] of integer;
temp:integer;
N:integer;
i:integer;
begin
// ввод данных
n:=StrToInt(InputBox('Введите N (N<=10)','','0'));
// ручной ввод значений массива
for i:=1 to n do begin A[i]:=StrToInt(InputBox(format('a[%d]',[i]),'','0')); end;
for i:=1 to n do Memo1.Lines.Add(IntToStr(A[i]));
for i:=1 to n div 2 do
begin
temp:=a[i];
a[i]:=a[(n div 2)+i];
a[(n div 2)+i]:=temp;
end;
// вывод результата
for i:=1 to n do Memo2.Lines.Add(IntToStr(A[i]));
end;

Буду благодарен

[Streletz]

Попробуйте использовать StringGrid.

[schibeki]

можете наглядно написать с кодом?

[doktor255]

procedure TForm1.Button1Click(Sender: TObject);
var n, k: integer;
begin
StringGrid1.FixedCols := 0;
StringGrid1.FixedRows := 0;
StringGrid1.DefaultColWidth := 30;
StringGrid1.DefaultRowHeight := 30;
StringGrid1.RowCount := 10;
StringGrid1.ColCount := 10;
for n := 0 to 9 do
  for k := 0 to 9 do
    StringGrid1.Cols[n][k] := IntToStr(k + 1);
end;

[Stilet]

некрасиво получается

Не понял. Что там некрасивого? Выравнивание?

for i:=1 to n do Memo2.Lines.Add(format('%10d',[A[i]]));