Помогите дописать код
Задание:
В матрице А(n,m) найти сумму квадратов элементов каждой строки.Сформировать новый двумерный массив(первая строка - значение суммы , вторая строка номер строки для которой рассчитана эта сумма).
Отсортировать новый массив по первой строке элементов (элемент во второй строке перемесчается вместе с элементом первой строки), если элементы первой строки равны ,то во второй строке элементы располагаются по возрастанию.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
j:integer;
stl:integer;
str:integer;
begin
stl:=strtoint(edit1.Text); // столбцы
str:=strtoint(edit2.Text); // строки
StringGrid1.ColCount:=stl+1;
StringGrid1.RowCount:=str+1;
StringGrid1.Cells[0,0]:='Значение A:';
randomize;
for i:=1 to str do
for j:=1 to stl do begin
StringGrid1.Cells[0,i]:='i='+IntToStr(i);
StringGrid1.Cells[j,0]:='j= '+IntToStr(j);
StringGrid1.Cells[j,i]:=inttostr(random(10));
A[i,j]:=strtoint(StringGrid1.Cells[j,i]);