Дан одномерный массив целых чисел

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 9 do StringGrid1.Cells[i-1, 0] := 'a[' + IntToStr(i) + ']';
    StringGrid1.Options := StringGrid1.Options + [goEditing];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a, a0, a3: array[0..9] of integer;
  i, b, s, count, min, minp: integer;
begin
s := 0;
Count := 0;
 
b := StrToInt(LabeledEdit1.Text)
 
for i := 1 to 9 do begin
    a[i] := StrToInt(StringGrid1.Cells[i-1, 1]);
    if i mod 2 = 1 then s := s + a[i];
    if (a[i] < b) and (a[i] mod 5 = 0) then
      inc(Count);
    end;
Label1.Caption := 'Cуммa элементов, имеющих нечетные индексы, равна ' + IntToStr(S);
Label2.Caption := 'Количество элементов, значения которых меньше числа ' + LabeledEdit1.Text + ' и кратны 5, равно ' + IntToStr(Count);
 
//–найти номер первого отрицательного элемента, который делится на 5 с остатком 2;
min := 0;
for i := 0 downto 1 do if (a[i] < 0) and (a[i] mod 5 = 2) then min := i;
if min <> 0 then Label3.Caption :='номер первого отрицательного элемента, который делится на 5 с остатком 2, равен ' + IntToStr(min) else Label3.Caption := 'Отсутствует отрицательный элемент, делящийся на 5 с остатком 2';
 
//–заменить минимальные положительные элементы данного массива нулями;
for i := 1 to 9 do if a[i] > 0 then minp := a[i]; //найти любой положительный элемент
for i := 1 to 9 do if (a[i] < minp) and (a[i] > 0) then minp := a[i]; // миним.полож
for i := 1 to 9 do begin
    StringGrid2.Cells[i-1,0] := IntToStr(a[i]);
    if a[i] = minp then Begin //замена на нули
       a[i] := 0;
       StringGrid2.Cells[i-1,0] := '0';
       End;
     End;
 
//–умножить все элементы, кратные 3, на третий элемент массива, кроме него самого (в случае, если он кратен числу 3)
for i := 1 to 9 do begin
    if i = 3 then continue; // пропуск третьего элемента
    if a[i] mod 3 = 0 then a[i] := a[i] * a[3];
    StringGrid3.Cells[i-1,0] := IntToStr(a[i]);
    End;
StringGrid3.Cells[3-1,0] := IntToStr(a[3]); // То что пропустили выше (continue)
end;