Подправьте код

unit Unit12;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm12 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form12: TForm12;
  s:array[0..100,0..100] of integer;
  a:array[0..100,0..100] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm12.Button1Click(Sender: TObject);
var z,i,j,m,n:integer;
begin
 randomize;
 n:=strtoint(edit1.Text);
 m:=strtoint(edit2.Text);
 z:=0;
 for I := 0 to n-1 do
   for j := -1 to m-1 do
 
     begin
       s[i,j]:=a[n-j-1,i];
     s[i,j]:=2*j;
 
 
 
     end;
     stringgrid1.rowcount:=n+1;
     stringgrid1.colcount:=m+1;
 with stringgrid1 do
 begin
   i:=0;
   for j :=1  to rowcount do
   cells[i,j]:=inttostr(j);
   j:=0;
   for i :=1  to colcount do
   cells[i,j]:=inttostr(i);
   end;
   with stringgrid1 do
   for i := 1 to n do
     for j := 1 to m do
       cells[j,i]:=inttostr(s[i-1,j-1]);
 
 end;
 
end.