Дан целочисленный массив на n элементов,вывести на экран элементы у которых остаток k от деления на число x лежит в диапазоне от 0 до -1

Const   N = 13;Var   A:array[1..N] of integer;   i,x:integer;BeginWrite('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 <= A[i] mod x)and(A[i] mod x <= 0) then Write(A[i],' ')End.