Файл содержит числа 0,1 и 2. Количество чисел не известно. Расположите числа в этом файле в порядке возрастания

var f:text;
    s:string;
    a,k:integer;
begin
assign(f,'1.txt');
s:='';
k:=1;
reset(f);
while not seekeof(f) do//читаем до последнего числа
 begin
  read(f,a);
  case a of
  0:begin
    s:=inttostr(a)+' '+s;//0 вперед с пробелом
    inc(k,2);//+2 позиции
    end;
  1:insert(inttostr(a)+' ',s,k);//1 вставляем после всех 0
  2:s:=s+' '+inttostr(a);//2 в конец строки
  end;
 end;
close(f); 
rewrite(f);//перепишем файл 
write(f,s); //на полученную строку
close(f);
end.

const fName = '1.txt';
begin
  Reset(input, fName); var s := ReadLnString; Close(input);
  Rewrite(output, fName); s.ToWords.Sorted.Print; Close(output);
end.

const fName = '1.txt';
begin
  Reset(input, fName);
  var a := arr(0,0,0);
  var n := 0;
  while Not EOF(input) do
    begin
      Read(n);
      a[n] += 1;
    end;
  Close(input);
 
  Rewrite(output, fName);
  for var i := 0 to 2 do
    for n := 1 to a[i] do
      Print(i);
  Close(output);
end.

const
  Path = 'C:\Ilya\AlgoРитмы\Файл1.txt';
 
begin
  WriteAllLines(Path, ReadAllLines(Path).SelectMany(x -> x.ToWords()).OrderBy(x -> x).ToArray());
end.