1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure sgtoarray (sg: Tstringgrid; feld: array of array of integer; length: integer);
var z, s: integer;
begin
setlength(feld, length, length);
For z:= 1 to 9 do
 begin
 For s:= 1 to 9 do
  begin
  feld[z,s]:= strtoint(form1.sg1.cells[s,z]);
  end;
 end;
end;					

1:
2:
3:
4:
5:

type
 TFeld = array of array of integer;

procedure sgtoarray (sg: Tstringgrid; feld:TFeld; length: integer);
....