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

Var a: 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 количество пол-х элементов больше во второй половине

(CD) Он имеет спиральную дорожку для направления луча лазера при записи и считывании информации. С той стороны, где находится эта спиральная дорожка, диск покрыт записываемым слоем, который состоит из очень тонкого слоя органического красителя, и затем отражающим слоем из серебра, его сплава или золота. Этот отражающий слой покрывается защитным фотополимеризуемым лаком и отверждается ультрафиолетовым излучением. И уже на этот защитный слой наносятся различные надписи краской.
(DVD)Компакт-диск представляет собой поликарбонатную подложку толщиной 1,2 мм и диаметром 120 мм, покрытую тончайшим слоем металла (алюминий, золото, серебро и др.), защищенного слоем лака, на который обычно наносится графическое представление содержания диска. 

Системный блок(в)..............

Я ХЗ НО ШЯС ПОСТАРАЮСЬ РЕШИТЬ