Вывод массива на экран

Задача:

Создайте массив А[1..15], заполненного случайными числами от-15 до 30. Дано число X. Вывести слева от числа X все элементы числового массива меньшие этого числа, а справа - большие его.

Код:


program mb;
var A: array[1..15] of integer;
    X, i: integer;
Begin
X:= 10;
Randomize;
for i:= 1 to 15 do begin
A[i]:= Random(46)-15;
if A[i] < X then write(A[i],' ');   {выводим элементы, меньшие Х}
                  end;
Write(X, ' ');                      {сам Х}
for i:= 1 to 15 do
if A[i] > X then write(A[i],' ');   {и элементы больше него}
Readln;
End.