Упорядочить список студентов по году рождения, используя записи, и распечатать его

program laba (input, output);
const k=3;
type
  student= record
  pr: array [1..15] of char;
  im: array [1..10] of char;
  pb: array [1..20] of char;
  d: 1..31;
  m: 1..12;
  rnar: 1970..2000;
  rvst: 1987..2017;
  kyrs: 1..6;
  gr: string[6];
  ocinlp: array [1..10,1..11]of 0..100;
  end;
  stud= array [1..k] of student;
 var
  st: stud;
  i, j : integer;
  b1:student;
  procedure SortNam(var  ms:stud;i1:integer);
  var
j1:integer;
 b: student; 
begin
  for i1:=1 to k-1 do
    for j1:=i+1 to k do
      if ms[i].rnar > ms[j].rnar  then
        begin
          b:=ms[i1];
          ms[i1]:=ms[j1];
          ms[j1]:=b;
        end;
end;
  
  begin 
     for i:=1 to k do
     begin
      writeln ('введіть відомості про ', I , '-го студента');
   
      writeln ('введіть прізвище, ім"я, по-батькові ' , st[i].pr, st[i].im, st[i].pb); readln; 
      writeln ('введіть день, місяць, рік народження ', st[i].d,st[i].m, st[i].rnar);readln;
      writeln ('рік вступу', st[i].rvst);  readln;
      writeln ('введіть курс', st[i].kyrs);   readln;
      writeln ('введіть групу', st[i].gr); 
      
      begin
     for j:=1 to st[i].kyrs do
          writeln('введіть оцінки ', st[i].ocinlp ); readln;
      end;   
   writeln ('ввід закінчено'); 
   readln;
  end;
  
  SortNam(st, i);
   
     begin
     For i:=1 to k do
     
    Begin
      write(st[i].pr,st[i].im,st[i].pb, ' ');
      write(st[i].d,st[i].m,st[i].rnar,', ');
      write(st[i].rvst,', ');
      write(st[i].kyrs,' ');
      write(st[i].gr,' ');
      For j:=1 to st[i].kyrs do
        begin
          write(st[i].ocinlp, ',');
          
        end;
      writeln;
    End;
  readln;
end;
    end.