Сортировка

program files;
uses crt;
type zap=record
     ses,kurs:integer;
     fak,grup,name,date,stat,adres,tel,stup:string;
     res:real;
     end;
     myfile=file of zap;
var  f:myfile;
     ses,z,n,i:integer;
     c:zap;
begin
clrscr;
writeln ('Vvedit k-st studentiv');
readln(n);
assign(f, 'e:\Step Forward');
rewrite(f);
For i:=1 to n do
begin
writeln('Vvedit imya');
readln(c. name);
writeln('Vvedit datu narodzhenia');
readln(c. date);
writeln('Vvedit stat');
readln(c. stat);
writeln('Vvedit nazvu fakultetu');
readln(c. fak);
writeln('Vvedit kurs');
readln(c. kurs);
writeln('Vvedit nazvu grupy');
readln(c. grup);
writeln('Vvedit vidomosti pro stupendiyu');
readln(c. stup);
writeln('Vvedit telefon');
readln(c. tel);
writeln('Vvedit adresu');
readln(c. adres);
writeln('Result sesii');
readln(c. ses);
write(f,c);
end;
close(f);
repeat until keypressed;
end.