Написать программу сортировки записей:

Program lab;
type student=record
fio:string[30];
age:integer;
sex:string[7];
number:integer;
math:integer;
physics:integer;
PE:integer;
english:integer;
end;
var group: array[1..30] of student;
    i,k:integer;
    s1:string;s2:string;s3:string;s4:string;s5:string;sw:string;sm:string;
begin
s1:='Михайлова Галя Николаевна';
s2:='Хлопяник Иосив Андреевич';
s3:='Ляхов Дмитрий Павлович';
s4:='Лагуткин Константин Эдуардович';
s5:='Богданович Мария Андреевна';
sw:='ж';sm:='м';
writeln('Введите количество учащихся:');
read(k);
for i:=1 to k do
 begin
 writeln('ученик №',i);
 write(' Введите ФИО:');
 if i=1 then begin group[i].fio:=s1; writeln(group[i].fio);end;
 if i=2 then begin group[i].fio:=s2; writeln(group[i].fio);end;
 if i=3 then begin group[i].fio:=s3; writeln(group[i].fio);end;
 if i=4 then begin group[i].fio:=s4; writeln(group[i].fio);end;
 if i=5 then begin group[i].fio:=s5; writeln(group[i].fio);end;
 group[i].age:=random(5)+17;
 writeln(' Возраст:',group[i].age);
  write(' Введите пол:');
  if i=1 then begin group[i].sex:=sw; writeln(group[i].sex);end;
  if i=2 then begin group[i].sex:=sm; writeln(group[i].sex);end;
  if i=3 then begin group[i].sex:=sm; writeln(group[i].sex);end;
  if i=4 then begin group[i].sex:=sm; writeln(group[i].sex);end;
  if i=5 then begin group[i].sex:=sm; writeln(group[i].sex);end;
  write(' Введите номер группы:');
 readln(group[i].number);
 group[i].math:=random(9)+1;
 writeln(' математика:',group[i].math);
 group[i].physics:=random(9)+1;
 writeln(' физика:',group[i].physics);
 group[i].PE:=random(9)+1;
 writeln(' физра:',group[i].PE);
 group[i].english:=random(9)+1;
 writeln(' английский:',group[i].math);
 end;
end.

var x:student;
     i,j:integer;
................................
for i:=1 to n-1 do
for j:=i+1 to n do
if group[i].number>group[j].number then
 begin
  x:=group[i];
  group[i]:=group[j];
  group[j]:=x;
 end;