Средний балл. Паскаль.

[Brain1ess]

Пусть известны фамилии и оценки по 5 дисциплинам каждого из 10 студентов. Найти среднюю оценку каждого студента и найти студента с максимальным средним баллом. Исправьте, пожалуйста, не пойму в чем дело.

program aver;
type pupil = record
fam:string[10];
b1,b2,b3,b4,b5:2..5;
sb:real;
end;
var stud:array[1..10] of pupil
p: pupil;
i,m:integer;
sbmax:real;
m:=5;
begin
for i:=1 to 10 do
with stud [i] do
begin
writeln('Введите фамилию и 5 оценок');
readln(fam);
readln(b1,b2,b3,b4,b5);
end;
for i:=1 to m do
with stud [i] do
sb:=(b1+b2+b3+b4+b5)/5;
sbmax:=0;
for i:=1 to m do
if stud [i].sb>=sbmax then sbmax:=stud[i].sb;
for i:=1 to m do
if stud[i].sb=sbmax
then with stud[i] do writeln(fam:20,' ',sb:6:3);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[stupoz]

Так в чём проблема?
Если не компилируется, значит надо показать код ошибки.
Если работает не правильно, значит надо указать что вводили, что получили и что ожидали.

[Stilet]

var stud:array[1..10] of pupil

Точки-запятой не хватает

m:=5;
begin

Эти строки меняй местами.

end.

Перед ним ставь readln().