procedure PrintArray(a: List<real>);
begin
  a.Println;
  Writeln($'кол-во грузов: {a.Count}шт');
  Writeln($'общая масса грузов: {a.Sum}т');
  Writeln('средняя масса груза: ', a.Average:0:2, 'т');
end;

begin
  var z := new real[20];
  for var i := 0 to z.High do z[i] := Round(Random(1.0, 25.0), 2); z.Println;
  //если нужно вводить вручную, замените предыдущую строку на следующую:
  //for var i := 0 to z.High do Read(z[i]);
  var z1 := new List<real>;
  var z2 := new List<real>;
  for var i := 0 to z.High do
    if z[i] > 10 then z2.Add(z[i])
    else z1.Add(z[i]);
  Write(Newline, 'Mассив Z1: ');
  PrintArray(z1);
  Write(Newline, 'Mассив Z2: ');
  PrintArray(z2);
  Write(Newline,'самый тяжелый груз в Z: ', Z.Max, 'т',
        ', его порядковый номер: ', z.IndexOf(z.Max) + 1);
end.