таблица в паскале

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.

uses crt;
const nmax=30;
type uchn=record
          fm:string[15];
          im:string[15];
          ot:string[15];
          rs:140..200;
          ms:40..110;
          end;
var a:array[1..nmax] of uchn;
    n,i,mn,mx,k:byte;
    sr:integer;
begin
clrscr;
repeat
write('Количество учеников до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные об учениках');
for i:=1 to n do
 begin
  writeln('Запись ',n);
  with a[i] do
   begin
    write(' Фамилия: ');readln(fm);
    write(' Имя: ');readln(im);
    write(' Отчество: ');readln(ot);
    repeat
    write(' Рост [140..200]: ');
    readln(rs);
    until rs in [140..200];
    repeat
    write(' Масса [40..110]: ');
    readln(ms);
    until ms in [40..110];
   end;
 end;
clrscr;
writeln('Список учеников:':40);
writeln;
writeln('---------------------------------------------------------------');
writeln('|    Фамилия    |    Имя    |     Отчество     | Рост | Масса |');
writeln('---------------------------------------------------------------');
sr:=0;mn:=a[1].rs;mx:=a[1].rs;
k:=0;
for i:=1 to n do
 with a[i] do
  begin
   sr:=sr+rs;
   if rs<mn then mn:=rs
   else if rs>mx then mx:=rs;
   if rs>170 then k:=k+1;
   gotoXY(1,whereY);write('| ',fm);
   gotoXY(17,whereY);write('| ',im);
   gotoXY(29,whereY);write('| ',ot);
   gotoXY(48,whereY);write('|',rs:5);
   gotoXY(55,whereY);write('|',ms:6);
   gotoXY(63,whereY);writeln('|');
  end;
writeln('---------------------------------------------------------------');
writeln('Средний рост учеников=',round(sr/n));
writeln('Рост самого высокого=',mx);
writeln('Рост самого маленького=',mn);
write('В баскетбольной секции могут заниматься=',k);
readln
end.