дан массив из 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] gt; 0 then cnt1 := cnt1 + 1;
 for i:= 6 to 10 do
  if a[i] gt; 0 then cnt2 := cnt2 + 1;
 if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково');
 if cnt1 gt; cnt2 then Writeln('Количество пол-х элементов больше в первой половине');
 if cnt1 lt; cnt2 then  Writeln('Количество пол-х частей больше во второй половине');
end.

Пример:

-1 -2 3 5 0 4 6 7 -2 -5
Количество пол-х частей больше во 2-ой половине