В одномерном массиве заменить: элементы, большие -2, но меньшие 2, нулями

uses crt;
const n=10;
var
i:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
begin
writeln('a[',i,']=');read(a[i]);
end;
for i:=1 to n do
begin
if (a[i]>-2) and (2>a[i]) then
a[i]:=0;
end;
for i:=1 to n do
writeln('a[',i,']=',a[i]);
end.