Матрицы в Lazarus

[NAt]

Матрицы в Lazarus

здравствуйте, подскажите пожалуйста как вывести отсортированную матрицу в StringGrid2 : Дан двумерный массив А, размером (nхn).упорядочить по возрастанию элементы побочной диагонали матрицы А


procedure TForm1.Button2Click(Sender: TObject);
var k,i,j,х:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
end;

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,n-i+1]>a[j,n-j+1] then
begin
x: =a[i,n-i+1];
a[i,n-i+1]:=a[j,n-j+1];
a[j,n-j+1]:=x;
end;
заранее спасибо)

 

[interacia]

Вот так попробуйте.

for i:=1 to n do
 for j:=1 to n do
 begin
 StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
 end;