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

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(gt;,ReadInteger(N=));
  Writeln(Общий размер файлов, байт- ,a.Sum);
  Writeln(Средний размер файла, Кбайт- ,a.Average/1024:0:2);
  Writeln(Максимальный рзмер имеет файл №,a.IndexMax+1)
end.

Пример
N= 6
gt; 1300 830 263 1900 172 1500
Общий размер файлов, байт- 5965
Средний размер файла, Кбайт- 0.97
Максимальный рзмер имеет файл №4