В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
 Fin,Fout: TextFile;
 masIn,masOut,masTemp:array[1..10000] of integer;
 n,a,i,x,t:integer;
 
 
 begin
  AssignFile (fin,'input.txt');
  AssignFile (fout,'output.txt');
  Reset (fin);
  Rewrite (fout);
  read (fin,n);
  read (fin,a);
  readln;
  if (n>=1) and (n<=10000) then
  begin
    if (a>=0) and (a<=1000000) then
    begin
      for I := 1 to n do
      begin
         read (fin,t);
         MasIn[i]:=t;
      end;
      x:=0;
      t:=0;
      for I := 1 to n do
        begin
          if MasIn[i]<A then
          begin
           inc(x);
           MasOut[x]:=Masin[i];
          end
          else
          begin
           inc(t);
           MasTemp[t]:=Masin[i];
          end;
        end;
          for I := 1 to t do
            begin
              inc (x);
              MasOut[x]:=MasTemp[i];
            end;
          for I := 1 to n do Write(fout,masout[i],' ');
    end
    else Writeln (fout,'A ne po usloviu');
  end
  else  writeln (fout,'N ne po usloviu');
  CloseFile(Fin);
  CloseFile(Fout);
end.