дан одномерный массив естественных чисел.вывести на экран :1) все трехзначные числа

Const
   N = 33;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
Write('Начальный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(100000)-50000;
    Write(' ',A[i]);
    End;
WriteLn;
WriteLn;
Write('Трёхзначные числа:');
For i:= 1 to N do
    if (99lt;Abs(A[i]))and(Abs(A[i])lt;1000) then Write(' ',A[i]);
WriteLn;
Write('Номера четырёхзначных чисел:');
For i:= 1 to N do
    if (999lt;Абс(A[i]))and(Abs(A[i])lt;10000) then Write(' ',i)
End.

Пример:
Начальный массив: 12916 46699 20251 -36637 -14335 -33817 -25279 -5819 -6258 23375 15258 1264 10987 42877 9875 3515 -22647 -791 47876 -319 -23437 -43546 -46174 -29378 -17999 -37325 -10130 -38120 -40079 -12188 -34612 -17302 28074

Трёхзначные числа: -791 -319
Номера четырёхзначных чисел: 8 9 12 15 16

include lt;iostreamgt;
using namespace std;
int main()
 int n;
 cin gt;gt; n;
 int a[n];
 for(int i = 0; i lt; n; i++) cin gt;gt; a[i]; //input
 for(int i = 0; i lt; n; i++) //1)
   if(a[i] gt; 99 amp;amp; a[i] lt; 1000) cout lt;lt; a[i] lt;lt; " '; 
 cout lt;lt; endl;
 for(int i = 0; i lt; n; i++)  //2)
  if(a[i] gt; 999 amp;amp; a[i] lt; 10000) cout lt;lt; i lt;lt; " ";
 cout lt;lt; endl;