дан массив из 10 элементов определить где положительных элементов больше в 1 или во 2 половине. 1 половина от 1 до 5. 2 половина от 6 до 10

vara:array[1..10] of integer;cnt1, cnt2, i:integer;begin For i:= 1 to 10 do   Read(a[i]); for i:= 1 to 5 do  if a[i] > 0 then cnt1 := cnt1 + 1; for i:= 6 to 10 do  if a[i] > 0 then cnt2 := cnt2 + 1; if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково'); if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине'); if cnt1 < cnt2 then  Writeln('Количество пол-х элементов больше во второй половине');end.Пример:-1 -2 3 5 0 4 6 7 -2 -5Количество пол-х элементов больше во второй половине