Написать программу, создающую двумерный массив из NxM

[LokiFaga]

Написать программу, создающую двумерный массив из NxM случайных чисел и сортирующую первую строку массива по возрастанию, а вторую – по убыванию.
Вот начал делать,но выдаёт ошибку:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j,m,g,f,lon,min_j,min_i: integer;
k,ke,pe,d,t,min,p,lox:real;
s : string;
begin
Randomize;
for i:=0 to n do
  for j:=0 to n do
    a[i,j]:=random(50)-25;
    for i:=0 to n do
  begin
    for j:=0 to n do
      StringGrid1.Cells[j+1,i+1]:=IntToStr(a[i,j]);
      end;
s:=' '+#13#10;
for i := 1 to n do begin
for j := 1 to m do
s := s+inttostr(a[i, j])+#9;(На это строке ошибку выдаёт)
s:=s+#13#10;
end;
Memo1.Clear;
Memo1.Lines.Add(s);
end;
end.

Как исправить её?? Спасибо заранее

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

Сообщение от LokiFaga

выдаёт ошибку

какую?

[LokiFaga]

Сообщение от Alex11223

какую?

Вот такую вот штуку выдаёт

[northener]

Откуда берутся значения n и m?

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
const n=10;
      m=12;
var
i, j,g,f,lon,min_j,min_i: integer;
k,ke,pe,d,t,min,p,lox:real;
s : string;
a:array[0..n,0..m] of integer;
begin
Randomize;
for i:=0 to n do
  for j:=0 to m do
    a[i,j]:=random(50)-25;
    for i:=0 to n do
  begin
    for j:=0 to m do
      StringGrid1.Cells[j+1,i+1]:=IntToStr(a[i,j]);
      end;
s:=' '+#13#10;
for i := 0 to n do begin
for j := 0 to m do
s := s+inttostr(a[i, j])+#9;//(На это строке ошибку выдаёт)
s:=s+#13#10;
end;
Memo1.Clear;
Memo1.Lines.Add(s);
end;