[heon243]

Помогите дописать код
Задание:
В матрице А(n,m) найти сумму квадратов элементов каждой строки.Сформировать новый двумерный массив(первая строка - значение суммы , вторая строка номер строки для которой рассчитана эта сумма).
Отсортировать новый массив по первой строке элементов (элемент во второй строке перемесчается вместе с элементом первой строки), если элементы первой строки равны ,то во второй строке элементы располагаются по возрастанию.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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]);