Вводится последовательность из N произвольных чисел . Найти среднее значение положительных элементов последовательности.
Решить через процедуру и функцию по отдельности ( то есть 2 задачи ) . Паскаль . Ввод чисел через работу с файлами

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018Внимание! Если программа не работает, обновите версию!1. Функцияfunction avg(a:array of integer):=a.Where(t->t>0).Average;begin  var a:=ReadAllText('input.txt').ToIntegers;  Writeln('Среднее значение положительных элементов ',avg(a))end.2. Процедураprocedure avg(a:array of integer; var m:real);begin  m:=a.Where(t->t>0).Averageend;begin  var a:=ReadAllText('input.txt').ToIntegers;  var m:real;  avg(a,m);  Writeln('Среднее значение положительных элементов ',m)end.Хорошо видно, что решение с функцией имеет явное преимущество.