Посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл - Turbo Pascal

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

ребят как посчитать средний бал и вывести ученика с такой-же оценкой как и средний бал?

Program zashitastroki;
Uses crt;
Type RT16=record
    s: string;
    m: integer;
end;
Var i,j,k: integer;
    sb:real;
    students: array[1..10] of RT16;
Procedure stud_input(k: integer);
Var i:integer;
    students: array[1..10] of RT16;
Begin
     For i:=1 to K do begin
         write('student[',i,']=');
         readln(students[i].s);
         write('mark[',i,']=');
         readln(students[i].m);
     end;
end;
Procedure stud_work(k: integer);
Var i: integer;
    students: array[1..10] of RT16;
Begin
 
     j:=0;
     For i:=1 to K do begin
         writeln(students[i].s,'...',students[i].m);
     end;
     writeln;
     writeln;
     sb:=0;
     for i:=1 to k
     sb:=sb+mark[i].m;
     end;
     sb:=sb/k;
     writeln('srednii bal');
     end.

Вот попытался написать но эт явно не то. Cуть в том что я должен ввести имена учеников и их оценку потом должен посчитаться средний бал и вывести ученика с такой-же оценкой как и средний бал.

Решение задачи: «Посчитать средний балл и вывести ученика с такой-же оценкой как и средний балл»

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

uses Crt;
type RT16=record
            s:string;
            m:integer;
          end;
var  a:array[1..10] of RT16;
     i:integer;
     sb:Real;
begin
  ClrScr;
   sb:=0;
    for i:=1 to 10 do
     begin
       Write('Student',i:2,' : ');
       Readln(a[i].s);            
       Write('Ball = ');
       Readln(a[i].m);
       sb:=sb+a[i].m;
     end;
   Writeln;
    sb:=sb/10;
     Writeln('Sredniy ball = ',sb:0:1);
      Writeln;
   for i:=1 to 10 do
    if a[i].m=sb then
     Writeln(a[i].s);
  ReadKey;
end.

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

В начале кода используется библиотека Crt, которая содержит функции для работы с экраном и строками.
Создается тип данных RT16, который представляет собой структуру с двумя полями: строка (s) и целое число (m).
Создается переменная a типа array[1..10] of RT16, которая представляет собой массив из 10 элементов типа RT16.
Создается переменная i, которая представляет собой целочисленный индекс элемента массива.
Создается переменная sb, которая представляет собой переменную для хранения среднего значения.
Запускается цикл for, который проходит по каждому элементу массива a от 1 до 10.
Внутри цикла выводится имя студента и его оценка.
Значение оценки добавляется к переменной sb.
После завершения цикла выводится среднее значение оценки.
Если оценка равна среднему значению, то выводится имя студента.
Конец программы.