посмотри в ббиблию delphi, там вроде это было
Не нужно никуда смотреть, подсказка была дана:
если а[итый] больше 100 и в то же время меньше 50 то ошибка
for i:=1 to 20 do
begin
a[i]:=strtoint(stringgrid1.Cells[i-1,0]);
if (a[i]>100) or (a[i]<50) then
Showmessage('ошибка!');
end