Косяк в делфи. Нужна помощь. Очень нужна.

Господа, минуточку внимания. Я - студент и я всего-навсего учусь, так что, если ошибка смешная, -не кричите и не смейтесь xD. Ладно, ближе к делу. Имеется задание:

Написанный мною код почему-то не работает (он, собственно приведен ниже) . Прошу помочь найти ошибку и, если появится желание, исправить её . Благодарю заранее.


Если не видно, вот текстом:
unit Unit1;

interface

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

type
mas=array[1..10,1..10] of real;
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
txt1: TStaticText;
txt2: TStaticText;
edt1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var

Form1: TForm1;
a:mas;
n,m,k:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var odin,dva,nomer:Real; i,stol,j:integer;
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
stringgrid1.ColCount:=n+1;
stringgrid1.RowCount:=m+1;
for i:=1 to n do
for j:=1 to m do
begin
stringgrid1.cells[0,j]:=inttostr(j);
stringgrid1.cells[i,0]:=inttostr(i);
end;
stol:=1;
odin:=0;
dva:=0;
nomer:=0;
repeat
begin
for i:=1 to n do begin
if StrToFloat(StringGrid1.Cells[stol,i])<0 then dva:=dva+1;
end;
if dva>odin then begin odin:=dva ; nomer:=stol; end;
stol:=stol+1;

end;
until stol

until stol