Переписать код, используя процедуры и функции - Turbo Pascal

Формулировка задачи:

Дана программа, как ее написать с помощью процедур и функций, просто тему не знаю.

var
i,j,h,n:integer;
sr:real;
begin
writeln('kol-vo ychenikov');
readln(n);
h:=0;
sr:=0;
while i<n do begin
readln(j);
h:=h+j;
i:=i+1;
end;
sr:=h/n;
write(sr);
end.

Решение задачи: «Переписать код, используя процедуры и функции»

Листинг программы

function VvodAndCalcSred(n: integer): real;
var
i,j,h:integer;
begin
h:=0;
sr:=0;
i:=0;
while i<n do begin
readln(j);
h:=h+j;
i:=i+1;
end;
VvodAndCalcSred:=h/n;
end;
var
n:integer;
begin
writeln('kol-vo ychenikov');
readln(n);
write(VvodAndCalcSred(n));
end.

Объяснение кода листинга программы

Создаётся функция VvodAndCalcSred, которая принимает один аргумент n типа integer и возвращает одно значение типа real.
В функции объявляются три переменные: i, j и h типа integer.
В цикле while происходит чтение значения переменной j с помощью функции readln. Значение j суммируется с переменной h.
После окончания цикла, значение переменной h делится на значение переменной n и присваивается переменной VvodAndCalcSred.
В основной программе выводится сообщение kol-vo ychenikov и считывается значение переменной n.
Вызывается функция VvodAndCalcSred с аргументом n и результат выводится на экран.