Найти номера всех отрицательных элементов - Pascal ABC

Program print;
Uses crt;
Const
     n=5;
Var
a: array[1..n] of integer;
i,null,s:integer;
Begin
s:=0;
Writeln('Введите элементы массива:');
For i:=1 to n do
begin
Readln(a[i]);
end;
ClrScr; 
Writeln('Элементы вашего массива:');
For i:=1 to n do
Writeln('a[',i,'] = ' ,a[i]);
Writeln('<br>');
Writeln;
Writeln('Номера отрицательных элементов:');
For i:=1 to n do
    IF a[i]<0 then
    begin
         null:=i;
         s:=s+1;
         Writeln(i);
    end;
Writeln('Всего отрицательных элементов: ' ,s);
end.