Ошибка Delphi

[Степа Верхозин]

Выдает ошибку в выделенной строке
Задача:
Анкета спортсмена, подавшего заявку на соревнование, состоит из его пола, роста, веса, размеров одежды и обуви. По заданной последовательности заявок найти веса самого высокого спортсмена и самой высокой спортсменки.

procedure TForm1.Button2Click(Sender: TObject);
var
y: integer;
growing: integer;
weight: integer;
a: array of integer;
max:integer;
begin
for y:=1 to StringGrid1.RowCount do
a[y]:= StrToInt(StringGrid1.Cells[0,y]);
max:=1;
for y:=2 to StringGrid1.RowCount do
if a[y]>a[max] then max:=y;
begin
if (StringGrid1.Cells[2,y]='муж') and (strtoint(StringGrid1.Cells[0,y])=max)
then weight:=weight+strtoint(StringGrid1 .Cells[1,y]);
if (StringGrid1.Cells[2,y]='жен') and (StrToint(StringGrid1.Cells[0,y])=max)
then growing:=growing+StrToint(StringGri d1.Cells[1,y]);

end;
Label8.Caption:=intTostr(growing);
Label9.Caption:=intTostr(weight);
end;
end.

Помогите пожалуйста

[DM_bite]

Все нормально скомпилилось.Какая ошибка, что пишет?

[Степа Верхозин]

Сообщение выдает:Project2.exe raised exception class EAccessViolation with message 'Access violation at address 004617DA in module 'Project2.exe'. Write address 00000004'. Process stopped. Use Step or Run to continue