вычислить рост студентов (Delphi)

[belkooo]

в таблице хранится следующие данные о студентах: фамилия, имя, рост, масса.
вычислить средний рост студентов, рост самого высокого и самого низкого студента

[v0v41k]

средний рост:

b:=0;
for i:=1 to n do
b:=b+a[i];

s:=b/n; //средний рост

Максимальный рост

max:=0;
for i:=1 to n do
if a[i]<a[i+1] then
max:=a[i+1]
else
max:=a[i];

Минимальный рост

min:=0;
for i:=1 to n do
if a[i]>a[i+1] then
min:=a[i+1]
else
min:=a[i];

Но если ты этого сам сделать не можешь ет проблема.
Мог ошибиться.