Заполнение массива

[Kazik]

Помогите плиз ребята...срочно нужно лабу сдавать...а сам дуб-дубом

Создайте процедуру заполнения массива следующим образом:

С помощью этой процедуры выведите на экран матрицы следующих размеров: 3х3, 4х4,6х6.
Нужно использовать StringGrid.
Заранее спасибо.

[Sciv]

zn:=0;
for j:=n downto 1 do
  for i:=1 to n do begin
    inc(zn);
    a[i,j]:=zn;
  end;