Массив: Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов

procedure TForm1.Button1Click(Sender: TObject);
VAR
a:array[0..9] of integer;
i,Count0, Count1, s : Integer;
sr : double;
str : String;
begin
randomize;
count0 := 0;
count1 := 0;
s := 0;
sr := 0;
for i := 0 to 9 do begin
    a[i] := Random(21) - 10;
    StringGrid1.Cells[0,i] := IntToStr(a[i]);
    if a[i] = 0 then inc(count0);
    if a[i] > 0 then s := s + a[i];
    if a[i] < 0 then begin sr := sr + a[i]; inc(count1) end;
    end;
str := '';
if count0 = 0 then str := str + 'Нет нулевых элементов' + #13#10 else str := str + 'Нулевых элементов = ' + IntToStr(count0) + #13#10;
if s = 0 then str := str   + 'Нет (+) элементов' + #13#10 else str := str + 'Сумма (+) элементов = ' + IntToStr(s) + #13#10;
if count1 = 0 then str := str + 'Нет (-) элементов' else str := str + 'Среднее значение (-) элементов = ' + FloatToStr(sr/count1);
 
ShowMessage(Str);
end;