Написать программу которая определяет количество учеников в классе,чей рост превышает средний(Turbo Pascal)

program num;
Var a:array [1..40] of integer;
j, s, k, n :integer;
sr:real;
begin
writeln('Введите количество учеников в классе');
readln(n);
writeln('Введите рост учеников');
for j:=1 to n do
begin
readln(a[j]);
end;
s:=0;
for j:=1 to n do
s:=s+a[j];
sr:=s/n;
k:=0;
for j:=1 to n do
if a[j]> sr then k:=k+1 ;
writeln('Количество учеников в классе, чей рост превышает средний= ', k);
end.

Помогите и решите за меня - две разные вещи.
Может стоит открыть лекции и попробовать хоть немного разобраться?
Вот почти рабочая программа:
var индекс, количество_учеников: Integer;
массив: array [0..100] of real;
ср_знач: real;
begin
ср_знач := 0;
for индекс := 0 to длина_массива do
ср_знач := ср_знач + массив [индекс] ;
ср_знач := ср_знач / длина_массива;
количество_учеников := 0;
if массив [индекс] > ср_знач then
количество_учеников := количество_учеников + 1;
end.
Думаю разобраться не составит труда.

Помогите решить задачку.
Дан файл с таблицей в формате TSV с информацией о росте школьников разных классов.

Напишите программу, которая прочитает этот файл и подсчитает для каждого класса средний рост учащегося.

Файл состоит из набора строк, каждая из которых представляет собой три поля:
Класс Фамилия Рост

Класс обозначается только числом. Буквенные модификаторы не используются. Номер класса может быть от 1 до 11 включительно. В фамилии нет пробелов, а в качестве роста используется натуральное число, но при подсчёте среднего требуется вычислить значение в виде вещественного числа.
6James153
4Nicholson144
10Elmers174
11Taylor174
2Audley127
6Nelson152
10Wallace172
6Freeman156
7Salomon155
10Blare170
4Garrison144
9Oakman168
9Kendal171
9Donaldson167
5Addington149
4Conors135
11Dean173
7Salisburry159
3Milton134
7Milton161
10Gustman175
2Ramacey134
6Gill156
7Johnson162
5Owen142
6Thorndike150
5Boolman148
1Fleming126
7Faber162
10Albertson171
2Carroll130
1Higgins130
5Kirk146
1Kennett122
2Carrington131
4Dutton143
10Young166
5Adamson148
10Oldman171
6Keat158
10Chandter175
7Simon164
3Erickson137
5Gilbert147
10Barrington168
7Archibald155
10Pearcy169
3Kelly134
4Ogden141
3Stevenson135
9Roger168
7Nathan157
11Bush174
6Day155
10Archibald175
4Shorter136
4Brown142
10Taft175
2Dyson128
4Pass139
2Goldman135
6Finch155
6Chandter159
2Kirk135
9Chandter166
11Pass175
6Keat159
6Philips159
5Ralphs144
8Keat166
6Wayne151
2Ryder135
10Dunce173
3MacAdam136
9Dickinson165
1Roger122
9Thomson175
8Gilmore167
7Jerome159
5Daniels140
2Philips132
3Flannagan135
5Taft144
11Goldman173
3Mathews135
11Pearcy175
2Cramer134
3Morrison132
4Carey144
8Coleman161
9Adamson169
5Nicholson148
4Crossman139
4Hoggarth136
6Higgins158
1Salomon125
4Fitzgerald144
10Michaelson169
3Paterson136
11Mackenzie174
11Vance170
6Farmer158
2Page128
8Parkinson162
8Chapman166
3Dickinson136
2Berrington125
7Oliver161
9Lewin169
10Gerald165
11Barrington172
6Brickman152
10Keat175
3Douglas131
1Bawerman122
БУду очень рад.