program subd;
uses crt;
const nn=50;
type zap=record
fam: array [1..nn] of string ;
dp,mp,yp: array [1..nn] of integer;
inn: array [1..nn] of char;
kurs: array [1..nn] of char;
group: array [1..nn] of string;
dr,mr,yr: array [1..nn] of real;
predmet: array [1..nn] of string;
ocenka: array [1..nn] of integer;
end;
var
f: text ;
z: zap;
t,s1,s2:string;
flag:boolean;
q,o:array [1..nn] of integer;
n,m,i,k:integer;
l:string;
ii,j,kk:integer;
begin
assign( f,'data.txt');
CLRSCR;
writeln('enter kolichestvo studentov '); read(n);
writeln('enter kolichestvo predmetov '); readln(k);
for m:=1 to n do
 begin

 clrscr;
 write('enter family   '); readln(z.fam[m]);
 write('enter inn   '); readln(z.inn[m]);
 write('enter kurs   '); readln(z.kurs[m]);
 write('enter group   '); readln(z.group[m]);
 write('enter data rojdeniya dd mm yyyy   '); readln(z.dr[m],z.mr[m],z.yr[m]);

 write('enter data postupleniya dd mm yyyy    '); readln(z.dp[m],z.mp[m],z.yp[m]);
                for i:=1 to k do begin
write('enter names predmet  '); readln(z.predmet[i]);
write('enter ocenka   ');    readln(z.ocenka[i]);

    end;
    end;
clrscr;

readln;
{alfavit----------------------------------------------------------------------------}
For i := 1 To n Do
    For m := n DownTo i+1 Do
      If z.fam[Pred(m)] > z.fam[m] Then Begin
        T := z.fam[Pred(m)]; z.fam[Pred(m)] := z.fam[m]; z.fam[m] := T
      End;
writeln('famili v alfavitnom poryadke');
for m:=0 to n do begin

   writeln(z.fam[m]);
end;
{-----------------------------------------------------------------------------------}


read(l);
write(l);
end.