Помогите, пожалуйстаЕсли что, это паскаль

begin

 var n := 20;

 var a := ArrRandom(n, -10, 10);

 a.Println;

 var b := new Listlt;integergt;;

 var c := new Listlt;integergt;;

 var d := new Listlt;integergt;;

 for var i := 0 to n - 1 do

   if a[i] lt;= -2 then

     b.Add(a[i])

   else if a[i] gt; 2 then

     c.Add(a[i])

   else if Абс(a[i]) lt; 2 then

     d.Add(a[i])

 b.Println;

 c.Println;

 d.Println;

end.