Произвести перестановку массива — Pascal(Паскаль)

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.