Удобочитаемая программа

uses crt;

const

st = 25; {kolvo studentov}

type

student = record

fio: string[40]; {fio}

data_rozhd: record

day: integer; {день}

month: integer; {месяц}

year: integer; {год}

end;

god_post: integer; {год поступленеия}

group: string[8]; {группа}

kurs: integer; {курс}

ocenki: array [1.. 40] of integer; {оценки}

sr_ball: real; {средний балл}

end;

var

spisok:array [1..st] of student;

{ввод студентов}

procedure vvod;

var i,j,k,sr:integer;

begin

for i:= 1 to st do

begin

clrscr;

writeln(i,' fio data rozhd god post group kurs ocenki');

gotoxy(1,2);

readln(spisok[i].fio);

gotoxy(18,2); readln(spisok[i].data_rozhd.day,spisok[i].data_rozhd.month,spisok[i].data_rozhd.year);

gotoxy(31,2);

readln(spisok[i].god_post);

gotoxy(41,2);

readln(spisok[i].group);

gotoxy(50,2);

readln(spisok[i].kurs);

sr:=0;

for j:=1 to spisok[i].kurs do

begin

gotoxy(56,1+j);

for k:=1 to 4 do

begin

readln(spisok[i].ocenki[(j-1)*4+k]);

gotoxy(56+2*(k),1+j);

sr:=sr+spisok[i].ocenki[(j-1)*4+k];

end;

end;

{определение среднего балла}

spisok[i].sr_ball:=sr/(spisok[i].kurs*4);

end;

end;

{вывод отсортированного списка студентов}

procedure vyvod;

var i,j,k,sr,str:integer;

sredn:real;

stud:student;

begin

for i:=1 to st-1 do

for j:=i+1 to st do

begin

if spisok[j].sr_ball < spisok[i].sr_ball then

begin

stud:=spisok[i];

spisok[i]:=spisok[j];

spisok[j]:=stud;

end;

end;

clrscr;

str:=2;

{вывод сведений о студенте}

writeln(' fio data_rozhd god_post group kurs ocenki sr_ball');

for i:=1 to st do

begin

gotoxy(1,str);

writeln(spisok[i].fio);

gotoxy(18,str);

writeln(spisok[i].data_rozhd.day,spisok[i].data_rozhd.month,spisok[i].data_rozhd.year);

gotoxy(31,str);

writeln(spisok[i].god_post);

gotoxy(41,str);

writeln(spisok[i].group);

gotoxy(50,str);

writeln(spisok[i].kurs);

gotoxy(66,str);

writeln(spisok[i].sr_ball:4:1);

sredn:=sredn+spisok[i].sr_ball;

for j:=1 to spisok[i].kurs do

begin

gotoxy(56,str);

for k:=1 to 4 do

begin

writeln(spisok[i].ocenki[(j-1)*4+k]);

gotoxy(56+2*(k),str);

end;

str:=str+1;

end;

end;

gotoxy(1,str+1);

writeln('sredniy ball: ',sredn/st:4:1);

end;

begin

vvod;

vyvod;

end.