1. Файл f1.txt содержит 200 чисел в 5 колонок. Создать программку считывания

// PascalABC.NET

// Версия 3.4.2, сборка 1956 (1/30/19)

begin

 var nums := ReadAllText('f1.txt').ToReals.OrderDescending.ToArray;

 var f := OpenWrite('f2.txt');

 for var i := 0 to nums.Count - 1 do

 begin

   Write(f, nums[i]:8:2);

   if ((i + 1) mod 8 = 0) then Println(f);

 end;

 f.Close;

end.

Трудности, вопросы либо предложения по работе программы? Прошу в комменты.