Дан целочисленный массив на n частей,вывести на экран элементы у которых

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,x:integer;
Begin
Write('x = ');
ReadLn(x);
Write('Начальный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(N)-N div 2;
    Write(A[i],' ');
    End;
WriteLn;
Write('Разыскиваемые элементы: ');
For i:= 1 to N do
    if (-1 lt;= A[i] mod x)and(A[i] mod x lt;= 0) then Write(A[i],' ')
End.