Программа выдаёт ошибку. Как её устранить?

procedure TForm1.ButtonRez4Click(Sender: TObject);
var i:Integer;
s,k,j:Real;
begin
if Memo1.Lines.Count=0
then ShowMessage ('Óêàæèòå ìàññèâ')
else
s:=0;
j:=0;
for i:=0 to Memo1.Lines.Count-1 do
if StrToFloat(Memo1.Lines.Strings[i])<0 then
begin
s:=s+StrToFloat(Memo1.Lines.Strings[i])
end;
s:=s/j;
j:=StrToFloat(Memo1.Lines.Strings[1]);
for i:=0 to Memo1.Lines.Count-1 do
if StrToFloat(Memo1.Lines.Strings[i])<j then
begin
j:=StrToFloat(Memo1.Lines.Strings[i]);
k:=i;
end;
Memo1.Lines.Strings[i]:=FloatToStr(s)
end;

procedure TForm1.EditMChange(Sender: TObject);
begin
if EditM.Text<>''
then
begin
StringGrid1.RowCount:=strtoint(EditM.Text);
StringGrid2.RowCount:=strtoint(EditM.Text)
end;
end;