1. Странно как-то вы считаете средний балл. Среднее считается как сумма всех баллов деленое на их количество. Т.е.
2. НО! Целое число для результата деления использовать нельзя, т.к. вы потеряете дробную часть и результат будет неверен. Если нехотите создавать новую переменную, то вычисляте среднее при выводе в консоль.
Код:
writeln('Средний балл', a/3:3:2)