[hrustnik]

Всем привет, у меня пару ошибок и нужна ваша помощь
1.Вычислить сумму элементов каждой строки матрицы А (n x m), определить наименьшее значение этих сумм и номер соответствующей строки.
радиобатон1- сам вожу
радиобатон2- рандом

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 sum:=0;
 memo1.lines.clear;
begin
with StringGrid1 do
  for i:=FixedCols to ColCount-1 do
  for j:=FixedRows to RowCount-1 do
    Cells[i, j]:='';
end;


if RadioButton1.Checked=true then
begin
n:=strtoint(Edit1.Text);
n1:=strtoint(Edit2.Text);
if (n<2) or (n>10) or (n1<2) or (n1>10) then
begin
    Showmessage('Кол-во строк и столбцов не больше 10 и не меньше 2');
    exit;
end;
for i:=0 to n do begin
for j:=0 to n1 do begin
x[i,j]:= strtoint(StringGrid1.Cells[i,j]);
begin
  sum:= sum + x[i,j];
  Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum));
end;
end;
end;
end;


if RadioButton2.Checked=true then
begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);

for i:=0 to n do begin
for j:=0 to n1 do begin
x[i+1,j+1]:= random(10)+2;
StringGrid1.Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
begin
  sum:= sum + x[i,j];
  Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum));
end;
end;

MAD: пользуемся тегом code, а не quote.

1. когда работаем рандом то в memo идут неправильные данные
2. самому вообще не ввести, пишет ошибку
буду благодарен