Массив..

[Liinad]

Друзья кто может помочь сделать лёгкую программу на массив. Я понял все предыдущие темы, да и массивы тоже немного, ну вот эта мне чучуть не по силам Условия такие ( Нужно создать массив, и вывести количество элементов массива которые меньше нуля, во второй половине массива Я начал делать , но закончить так и не получилось

var
a : array [1..20] of integer;
i,n : integer;
begin
writeln('Введите количество элемента массива');
readln(n);
writeln('Введите элемент массива');
For i:=1 to n do
readln(a[i]);
For i:=n div 2 to n do
begin
If a[i]<0 then writeln('Число меньше нуля ', a[i]);
If a[i]>0 then writeln('Числа меньше нуля нет');
end;
writeln('n', n);

end.

Помогите пожалуйста, нужно очень срочно Это последняя программа которую мне нужно сдать на этому модульном контроле

[GetMax]

Begin
....
CountNegativeDigit:=0; //Количество отрицательных чисел
For i:=n div 2 to n do
begin
If a[i]<0 then CountNegativeDigit:=CountNegativeDigit+1; //если нашли отрицательное число - увеличиваем счетчик
end;
if CountNegativeDigit = 0 then Writeln('Отрицательных чисел не обнаружено')
                                  else  Writeln('Количество отрицательных чисел: ',CountNegativeDigit);
End.

[Liinad]

Спасибо за помощь. Мне действительно нужно было срочно эту программу дописать. Спасибо)