Здравствуйте!

Я сделал простую программу на Pascal, которая ищет сумму отрицательных чисел в массиве.
Вопрос. Почему, когда я запускаю программу, она не выводит результат суммы отрицательных? В чем ошибка? Если ошибка очевидная, огромная просьба указать мне на неё

Заранее спасибо.

собственно вот

uses crt;
var
	a:array [1..100] of integer;
	s,n,i:integer;
begin
	readln(n);
	for i:=1 to n do
		readln(a[i]);
	s:=0;
	clrscr;
	for i:=1 to n do
		if A[i]<0 then s:=s+A[i];	//считаем не количество а сумму членнов
	writeln ('summa otricatelnih chisel:');
	writeln (s);
	readln;	//это добавляем чтоб окно, если ты будеш просто запускать в винде,
	read;	//не закрылось после того как будет написан результат...
end.

оптимизация
можна сделать динамический массив, что б вводить более 100 чисел и не занимать лишнию память в случае меньшего числа членов...
можна обойтись без одной переменной...