Распечатать владельцев машин одного цвета и их грузоподъемность - PascalABC.NET

Формулировка задачи:

В текстовый файл занесена информация типа record об грузовиках: грузоподъемность, марка, цвет, владелец. Отсортировать машины по марке(в разные файлы). Распечатать владельцев машин одного цвета и их грузоподъемность. Пример входного файла:

Спойлер

Решение задачи: «Распечатать владельцев машин одного цвета и их грузоподъемность»

textual
                            Листинг программы 
                        

                            begin
  var lst := ReadAllLines('thread1686479.txt');
  
  var gr := lst.GroupBy(s -> s.Split(' ')[1].Trim());
  foreach var g in gr do
    WriteAllLines(g.Key + '.txt', g.ToArray());
 
  var colors := lst.GroupBy(s -> s.Split(' ')[2]);
  foreach var c in colors do
    PrintLn(c.Key, ':', c.Select(s -> Format('({0}):{1}', s.Split(' ')[0], s.Split(' ')[3])));
end.
                        