[Alegun]

Вероятно вам нужно перевернуть матрицу, вот примерный проверенный вариант

Код:

...
var
 a: array[0..2] of array[0..2] of real = ((1,1,-1),(1,1,-0.5),(-1,-0.5,1));

//Заполнение грида начальными значениями из массива для проверки
procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: integer;
begin
 for i := 0 to 2 do
  for j := 0 to 2 do
   StringGrid1.Cells[i, j]:= FloatToStr(a[i,j]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 a1: array[0..2] of array[0..2] of real;
 i, j: integer;
begin

// сам переворот с заполнением временного массива
 for i := 0 to 2 do
  for j := 0 to 2 do
   a1[2-i, 2-j]:= a[i, j];

// вывод результата
 for i := 0 to 2 do
  for j := 0 to 2 do
   StringGrid1.Cells[i, j]:= FloatToStr(a1[i, j]);


 end;