uses crt;
var m,x,i,k:integer;
a:array[1..10000] of integer;
a2:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива a(m)');
readln(m);
writeln('Введите число x');
readln(x);
FOR i := 1 TO m do
begin
clrscr;
writeln('Введите элементы массива a(m)');
readln(a[i]);
end;
clrscr;
writeln('Введенный массив');
FOR i := 1 TO m do
begin
writeln(a[i]);
IF a[i] < x THEN
 begin
 k := k + 1; a2[k] := a[i];
end;
end;
FOR i := 1 TO m do
begin
IF a[i] = x THEN
 begin
 k := k + 1; a2[k] := a[i];
 end;
 end;
FOR i := 1 TO m do
begin
IF a[i] > x THEN
begin
k := k + 1; a2[k] := a[i]
end;
end;
writeln('Сформированный массив');
FOR i := 1 TO m do
begin
writeln (a2[i]);
end;
end.