задача про таблицу

[BeH9I]

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

program a1;
const n=3;
      n1=3;
      type
ved=record
nom:integer;
fam:string;
och:array [1..3] of integer;
sb:real;
end;
var tbl:array [1..3] of ved;
y:ved;
i,j:integer;
x:real;ch:STRING[80];
k:integer;
procedure vivod;
begin
ch:='****************************************';
writeln (ch);
writeln('*n*  fam  *um9I*OtchestBo*post*massa*');
writeln (ch);
for i:=1 to n do
with tbl[i] do
writeln (' * ',nom,' * ',fam:9,' * ',och[1],' * ',och[2],' * ',och[3],' * ',sb:3:3,' * ');
writeln (ch);
end;
begin
for i:=1 to n do
with tbl[i] do
begin
nom:=i;
readln(fam);
for j:=1 to n1 do
readln(och[j]);
end;
for i:=1 to n1 do
with tbl[i] do
begin
sb:=0;
for j:=1 to n1 do
sb:=sb+och[j];
sb:=sb/n1;
end;
writeln;
for i:=1 to 2 do
begin
k:=1; x:=tbl[i].sb;
for j:=k to n do
if x<tbl[i].sb
then begin
k:=i; x:=tbl[i].sb;
end;
y:=tbl[k];
tbl[k]:=tbl[i];
tbl[k]:=y;
end;
vivod;
end.

[.Phoenix]

Помогу за финансовое вознаграждение. Недорого. Пиши 482-612-193

[Stilet]

Предлагаю следующий вариантуз:

const n=3;
      n1=3;
      type
ved=record
 nom:integer;
 fam:string;
 och:array [1..3] of integer;
 sb:real;
end;

var tbl:array [1..3] of ved;
y:ved;
i,j:integer;
x,sr,mn,mx:real;
ch:STRING[80];
k:integer;

procedure vivod;
begin
ch:='****************************************';
writeln (ch);
writeln('*n*  fam  *um9I*OtchestBo*post*massa*');
writeln (ch);
for i:=1 to n do
with tbl[i] do
writeln (' * ',nom,' * ',fam:9,' * ',och[1],' * ',och[2],' * ',och[3],' * ',sb:3:3,' * ');
writeln (ch);
end;

begin mx:=0;mn:=0;
for i:=1 to n do
 with tbl[i] do begin
  nom:=i;
  readln(fam);
  for j:=1 to n1 do readln(och[j]);
  {Средний рост}
  sr:=sr+och[3];
  {Минимальный рост}
  if och[3]<mn then mn:=och[3];
  {Максимальный рост}
  if och[3]>mx then mx:=och[3];
 end;
 sr:=sr/3;
writeln;

vivod;
writeln('Srednii rost = ',sr:5:2);
writeln('samii visokii rost = ',mx:5:2);
writeln('Samii maloy rost = ',mn:5:2);
readln;
end.