Pascal, задача на подпрограмму.

[Elusive Devil]

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

Нужно решить задачу, используя подпрограмму.

[Sazary]

Вбиваете в поиск "средний балл" и вот вам куча аналогичных тем.
Пример: http://programmersforum.ru/showthread.php?t=39234

[Tkirill]

uses crt;
const
nmax=5;
type
rec=record
surname:string;
ball:real;
badmark:boolean;
end;
ar=array[1..nmax] of rec;
var
info:ar;
t:real;
procedure read_array(var r:ar; n:integer);
var
buf:char;
i:integer;
begin
for i:=1 to n do
begin
write(' Surname -> ');
readln(r[i].surname);
write(' Ball -> ');
readln(r[i].ball);
write(' Bad mark (y/n) -> ');
readln(buf);
buf:=upcase(buf);
if buf='Y' then r[i].badmark:=true
else r[i].badmark:=false;
end;
end;
function F(r:ar; n:integer):real;
var
buf:real;
i:integer;
begin
buf:=0;
for i:=1 to n do
buf:=buf+r[i].ball;
buf:=buf/n;
f:=buf;
end;
procedure write_g_s(r:ar; n:integer; k:real);
var
i:integer;
begin
for i:=1 to n do
if r[i].ball>k then writeln(r[i].surname);
end;
begin
clrscr;
read_array(info,nmax);
t:=f(info,nmax);
write_g_s(info,nmax,t);
readln;
end.