Двумерный массив VB [x]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Text1.Text "" And Text2.Text "" Then
Dim n, m, a, b As Integer
n = Text1.Text
m = Text2.Text
a = 0
b = 0
'Отображение результатов
Dim mas(0 To n - 1, 0 To m - 1) As Integer
For i = 0 To (n - 1) * (m) + (m - 1)

If b <= m - 1 Then
Randomize()
mas(a, b) = Int(Rnd() * 30)
b = b + 1
Else
a = a + 1
If a < n Then
b = 0
Else
Exit For
End If

End If
Next
a = 0
b = 0
Dim stolb(0 To m - 1), strok(0 To n - 1) As Integer
Dim schot(0 To n - 1, 0 To m - 1) As Integer
For i = 0 To (n) * (m) + (m - 1)
If b <= m - 1 Then
stolb(a) = stolb(a) + mas(a, b)
b = b + 1
ElseIf b = m Then
a = a + 1
b = 0
End If
Next
End If
End Sub
End Class
End Class
Что то плохо форум воспринимает дл. сообщения(

На Delphi сделал но она тоже сбоит(
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array [0..30,0..30] of integer;
m,n:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin
randomize;
n:= strtoint (edit1.Text);
m:= strtoint (edit2.Text);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=round(sin(random(100))*100);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
with StringGrid1 do
begin
i:=0;
for j:=1 to n do
cells[i,j]:=inttostr(j);
j:=0;
for i:=1 to m 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(a[i-1,j-1]);

end;


procedure TForm1.Button2Click(Sender: TObject);

var
i,j,s1,s2,max,min,k,h:integer;

begin
edit3.text:=' ';
edit4.text:=' ';
edit5.text:=' ';
edit6.text:=' ';
k:=0;
max:=0;
h:=0;
min:=0;
for i:=0 to n-1 do
begin
s1:=0;
s2:=0;
for j:=0 to m-1 do s:=s+a[i,j];
if s1>max then begin max:=s1;
k:=j;
end;
edit3.text:=inttostr(max)+' ';
edit4.text:=inttostr(k)+' ';
end;


for j:=0 to m-1 do
begin
s:=0;
for i:=0 to n-1 do
s:=s+a[i,j];
if s2< min then begin min:=s2;
h:=i;
end;
edit5.text:=inttostr(min)+' ';
edit6.text:=inttostr(h)+' ';
end;

end;

end.