Ëèñòèíã çàäàíèÿ íà ìîäèôèêàöèþ ïðîãðàììû

Program Sr_Ball;

uses crt;

  type grup=record

              fam:string[18];

              mat,rus,xim,fiz,ist:byte;

              sb:real;

            end;

  var tbl:array[1..20] of grup;

      y:grup;

      i,j,k,m:integer;

      x:real;

Begin

  clrscr;

  write('Êîëè÷åñòâî ó÷àùèõñÿ â êëàññå:  ');

readln(m);

  writeln;

  for i:=1 to m do

    with tbl[i] do

    begin

      write('fam[',i,']=');

readln(fam);

      write('mat=');

readln(mat);

      write('rus=');

readln(rus);

      write('xim=');

readln(xim);

      write('fiz=');

readln(fiz);

          write ('ist');

readln(ist);

    end;

  for i:=1 to m do

       with tbl[i] do

sb:=(mat+rus+xim+fiz+ist)/5;

  for i:=1 to m do

            begin

                      k:=i;

                       x:=tbl[i].sb;

                      for j:=i to m do

                                if tbl[j].sb>x then

                                       begin

                                       k:=j;

                                       x:=tbl[j].sb

                                       end;

                      y:=tbl[k];

                     tbl[k]:=tbl[i];

                      tbl[i]:=y;

            end;

  clrscr;

    writeln('------------------------------------------------------');

  writeln('№ïï|      Ôàìèëèÿ      | Ìàò | Ðóñ | Õèì | Ôèç | Èñò |' );

  writeln('------------------------------------------------------');

 for i:=1 to m do

    with tbl[i] do

    writeln(i:2,' |',fam:18,' | ',mat:2,'  | ',rus:2,'  | ',xim:2,'  | ',fiz:2,'  | ',ist:2,'  | ');

      writeln('------------------------------------------------------');

    readln;

    clrscr;

       writeln('----------------------------------');

   writeln('№ïï|     Ôàìèëèÿ       | Ñð.áàëë |' );

   writeln('----------------------------------');

for i:=1 to m do

with tbl[i] do

writeln(i:2,' |',fam:18,' |',sb:5:1,'    |');

 writeln('----------------------------------');

readkey;

End.