A:array [-20..100] of integer; - Судя по заданию, это просто бред!
for i:=0 to StringGrid1.Colcount do
for j:=0 to Stringgrid1.RowCount do - Тут нужно везде отнять по "-1" получится примерно так: "for j:=0 to Stringgrid1.RowCount-1 do"
Stringgrid1.Cells[i,j]:=inttostr(random(10)); - Это тоже бред! таблица тупо заполнится числоми от 0 до 9 надо писать "random(121)-20".
А дальше мне лень писать ибо там тоже