Составить программку ввода с клавиатуры массива и вывода на экран частей

var n,i:longint;

var a:array[1..10000000] of longint;

begin

writeln('Введите количество элементов массива');

readln(n);

for i:=1 to n do begin writeln('Введите элемент массива'); readln(a[i]); end;

for i:=1 to n do if( (a[i] mod 2 = 0) and (a[i]lt;0)) then writeln(a[i]);

end.