В файле записано не более 100 чисел. Отсортировать их по возрастанию последней цифры и записать в другой файл

begin
  Randomize;
  var K := Random(100) + 20;
  var T := OpenWrite('100.txt');
  for var i := 1 to K do
    WriteLn(T, Random(10000));
  T.Close;
  
  WriteLn('Файл чисел создан. Записано чисел: ',  K);
end.

begin
  // 1. Сколько всего чисел в файле
  var count := 0;
  var T := OpenRead('100.txt');
  while not T.Eof do
    begin
      var N := T.ReadlnInteger;
      count += 1;
    end;
  T.Close;
  
  // 2. Числа в массив
  var a : array of Integer;
  SetLength(a, count);
  var index := 0;
  T := OpenRead('100.txt');
  while not T.Eof do
    begin
      a[index] := T.ReadlnInteger;
      index += 1;
    end;
  T.Close;
  
  // 3. Сохранение в файл по последней цифре
  T := OpenWrite('101.txt');
  for var C := 0 to 9 do
    foreach var N in a do
      if N mod 10 = C then
        T.Writeln(N);
  T.Close;
  
  WriteLn('Файл отсортированных чисел создан.');
end.

begin
  Write('Исходный файл: ');
  var T1 := OpenRead('100.txt');
  while not T1.Eof do
    Print(T1.ReadlnInteger);
  T1.Close;
  WriteLn;
 
  WriteLn;
  
  Write('Новый файл: ');
  var T2 := OpenRead('101.txt');
  while not T2.Eof do
    Print(T2.ReadlnInteger);
  T2.Close;
  WriteLn;
end.

{$reference System.Core.dll}
uses System.Linq, System.IO;
begin
  Randomize;
  var K := Random(100) + 20;
  &File.WriteAllLines('d:\test\100.txt', 
    Enumerable.Range(1, K).Select((i : Integer) -> IntToStr(Random(10000))).ToArray());
  WriteLn('Файл чисел создан. Записано чисел: ',  K);
end.

{$reference System.Core.dll}
uses System.Linq, System.IO;
begin
  &File.WriteAllLines('d:\test\101.txt',
    &File.ReadAllLines('d:\test\100.txt').Select(StrToInt).OrderBy((i : integer) -> i mod 10).Select((i : integer) -> IntToStr(i)).ToArray());
end.

uses System.IO, Arrays;
begin
  writeln('Исходный файл:');
  &File.ReadAllLines('d:\test\100.txt').{Select(StrToInt).ToArray().}Writeln(NewLine);
  writeln('Результат:');
  &File.ReadAllLines('d:\test\101.txt').{Select(StrToInt).ToArray().}Writeln(NewLine);
end.