Упорядочить список студентов по году рождения, и распечатать его в виде таблицы (дополнить код)

Type 
ocenki = record
algebra:integer;
fizika:integer;
istoriya:integer;
end;
 
student = record
familiya,ImGrup:string[20];
God_post, kurs:integer; 
ocen:array[1..5] of ocenki;
Roj:real; 
End;
 
Const n=1; {количество студентов}
Var i,j: byte; st: array [1..n] of student;
proverka: boolean;
Begin
For i:=1 to n do
Begin
Write('Введите фамилию студента :'); Readln(st[i].familiya);
Write('Введите дату рождения студента :'); Readln(st[i].Roj);
Write('Введите год поступления :'); Readln(st[i].God_post);
Write('Введите курс студента :'); Readln(st[i].kurs);
Write('Введите группу студента :'); Readln(st[i].ImGrup);
Write('Введите оценки каждого года обучения :');
For j:=1 to st[i].kurs do
begin
Write('Оценка за алгебру ',i,' курса');
Readln(st[i].ocen[j].algebra);
Write('Оценка за физику ',i,' курса');
Readln(st[i].ocen[j].fizika);
Write('Оценка за историю ',i,' курса');
Readln(st[i].ocen[j].istoriya);
end; 
End;

uses
  crt;
Const
  n_max=5; {количество студентов}
 
Type
  ocenki = record
    algebra:integer;
    fizika:integer;
    istoriya:integer;
  end;
 
  student = record
    familiya,ImGrup:string[20];
    God_post, kurs:integer;
    ocen:array[1..5] of ocenki;
    Roj:string[10];
  End;
 
  arr_st=array [1..n_max] of student;
Var
  i,j: byte;
  st:arr_st;
  proverka: boolean;
 
procedure SortNam(var ms:arr_st; n:byte);
var
  i,j:byte;
  b:student;
begin
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if copy(ms[i].roj,Length(ms[i].roj)-3,4)>copy(ms[j].roj,Length(ms[j].roj)-3,4) then
        begin
          b:=ms[i];
          ms[i]:=ms[j];
          ms[j]:=b;
        end;
end;
 
Begin
  For i:=1 to n_max do
    Begin
      Write('Введите фамилию студента: '); Readln(st[i].familiya);
      Write('Введите дату рождения студента: '); Readln(st[i].Roj);
      Write('Введите год поступления: '); Readln(st[i].God_post);
      Write('Введите курс студента: '); Readln(st[i].kurs);
      Write('Введите группу студента: '); Readln(st[i].ImGrup);
      Write('Введите оценки каждого года обучения: ');
      writeln;
      For j:=1 to st[i].kurs do
        begin
          Write('Оценка за алгебру ',j,' курса: ');
          Readln(st[i].ocen[j].algebra);
          Write('Оценка за физику ',j,' курса: ');
          Readln(st[i].ocen[j].fizika);
          Write('Оценка за историю ',j,' курса: ');
          Readln(st[i].ocen[j].istoriya);
        end;
    End;
 
  sortnam(st,n_max);
 
  For i:=1 to n_max do
    Begin
      write(st[i].familiya,' ');
      write(st[i].Roj,', ');
      write(st[i].God_post,', ');
      write(st[i].kurs,' ');
      write(st[i].ImGrup,' ');
      For j:=1 to st[i].kurs do
        begin
          write(st[i].ocen[j].algebra,',');
          write(st[i].ocen[j].fizika,',');
          write(st[i].ocen[j].istoriya);
        end;
      writeln;
    End;
  readln;
end.