Очень нужно решение этой задачки, код и блок схему

[ura_111]

Вот это?

 procedure TForm1.dblclick(Sender: TObject);
//x, y, : integer;

А где ключевое слово "вар"?

[ura_111]

И ещё одно.

В этом месте

for i:=0 to n-1 do
for j:=0 to m-1 do
a[i][j] :=Random(201)-100;

замени переменные "i" "j" на "x" "y" (чисто ради красоты).

[Moraine93]

выдает ошибку где-то тут

 for i:=1 to n-1 do
    for j:=1 to m-1 do
      a[i][j] :=Random(201)-100; //çàïîëíÿåì ìàññèâ ñëó÷àéíûìè ÷èñëàìè

или тут

    for x := 1 to StringGrid1.ColCount - 1 do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(a[x][y]);
    begin
end;

[ura_111]

Покажи весь обработчик 2-го щелчка мыши.

[Moraine93]

end;
 procedure TForm1.dblclick(Sender: TObject);
 begin
 setlength(a,n);
for x:=1 to n-1 do
setlength(a[x],m);
 // Çàäàåì ÷èñëî ñòîëáöîâ è ñòðîê òàáëèöû
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
 for x:=1 to n-1 do
    for y:=1 to m-1 do
      a[x][y] :=Random(201)-100; //çàïîëíÿåì ìàññèâ ñëó÷àéíûìè ÷èñëàìè
// Çàäàåì øèðóíó è âûñîòó ÿ÷ååê
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;
    for x := 1 to StringGrid1.ColCount - 1 do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(a[x][y]);
    begin
end;
end;

[ura_111]

Просто объяви локальные переменные. Типа такого:

13.jpg

[Moraine93]

заместо 3 и 5 поставить что

[ura_111]

Я не знаю. Сама решай (методом тыка определи)

[Moraine93]

вот так все таки верно

 setlength(a,n);
for x:=1 to n-1 do
setlength(a[x],m);

[ura_111]

Ну оставляй (значит ошибка в другом месте).

Ещё посмотри(я думаю ты быстро исправишь): выводит 6х6, хотя в ввожу 7х7. Куда делся ещё один столбец/ строка?