Что такое функция, созданная программистом, на примере данного текста?

[PRIVIDENIE18]

Программа:
Program menu;
Type Mas=Array[1..10] of Integer; {создаем тип – массив из 10 целых чисел}
Var X:Mas; N,K:Integer;
procedure vvod(var A: Mas); {процедура ввода массива}
var I: integer;
begin
Writeln('Введите элементы массива:');
For I:=1 To 10 Do
Read(A[I]);
end;
Procedure vivod(var A: Mas); {процедура вывода массива на экран}
var I:integer;
begin
For I:=1 To 10 Do Write(A[I]:5);
Writeln;
end;
procedure vichisl(var A: Mas); {процедура вычисления среднего арифметического}
var I,sum:integer;
begin
sum:=0;
For I:=1 To 10 Do sum:=sum+A[I]; {считаем сумму элементов}
sum:=sum div 10; {вычисляем среднее арифметическое без дробной части}
For I:=1 To 10 Do If A[I]>0 Then A[I]:=sum; {заменяем нулевые элементы на полученное число}
End;
Begin
repeat
writeln('1. Ввод массива 10 целых чисел:');
writeln('2. Вывод массива в строку:');
writeln('3. Вычисление среднего арифметического значения элементов массива и замена положительных элементов массива целой частью от среднего арифметического значения');
Writeln('4. Конец работы.');
writeln('Выберите пункт меню');
readln(K);
case K of {проверка выбранного пункта меню}
1: vvod(X);
2: vivod(X);
3: vichisl(X);
4: break;
else writeln('Нет такого пункта меню');
end;
until K=4;
end.