помогите найти ошибку. программа должна выводить матрицу

procedure TForm12.Button1Click(Sender: TObject);
var a:array[1..3]of integer;
b:integer;
begin
repeat n:=StrToInt(InPutBox('kol-vo strok','введите ','0'));
       m:=StrToInt(InPutBox('kol-vo stolbov','введите ','0'));
until (n>1) and (n<=4) and (m>1) and (m<=4) ;
    for i:= 1 to m do
    for j:=1 to n do
  a[i]:=strtoint(inputbox('vvesti element','vvod','0'));
end;
procedure TForm12.Button2Click(Sender: TObject);
var a:array[1..3,1..3]of integer;
begin
 for i:= 1 to m do
 for j:=1 to n do
   stringgrid1.Cells[i,j]:=inttostr(a[i,j]);
end;

var 
  a:array[1..4,1..4]of integer;
  m,n : integer;
procedure TForm12.Button1Click(Sender: TObject);
var i,j:integer;
begin
  repeat 
    n:=StrToInt(InPutBox('kol-vo strok','введите ','0'));
    m:=StrToInt(InPutBox('kol-vo stolbov','введите ','0'));
  until (n>1) and (n<=4) and (m>1) and (m<=4) ;
  for i:= 1 to n do
  for j:=1 to m do
  a[i,j]:=strtoint(inputbox('vvesti element a['+IntToStr(i)+','+IntToStr(j)+']','vvod','0'));
end;
 
procedure TForm12.Button2Click(Sender: TObject);
var i,j:integer;
begin
 stringgrid1.RowCount:=n+1;
 stringgrid1.ColCount:=m+1;
 for i:= 1 to n do
 for j:=1 to m do
 stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
end;