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

uses crt;const n=10;vari:integer;a: array [1..n] of integer;beginfor i:=1 to n dobeginwriteln('a[',i,']=');read(a[i]);end;for i:=1 to n dobeginif (a[i]>-2) and (2>a[i]) thena[i]:=0;end;for i:=1 to n dowriteln('a[',i,']=',a[i]);end.