Помогите написать. В долгу не останусь. 25 баллов ;)

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('>',ReadInteger('N='));  Writeln('Общий размер файлов, байт- ',a.Sum);  Writeln('Средний размер файла, Кбайт- ',a.Average/1024:0:2);  Writeln('Максимальный рзмер имеет файл №',a.IndexMax+1)end.ПримерN= 6> 1300 830 263 1900 172 1500Общий размер файлов, байт- 5965Средний размер файла, Кбайт- 0.97Максимальный рзмер имеет файл №4