Program Record berurut di Pascal

Kali ini dapet tugas lagi dari Pak Edi untuk mencoba-coba ngurutin data yang diinputkan pada program Record kemarin,dan akhirnya selesai juga tugasnya. Inti dari program ini adalah kita membuat tampilan untuk menginputkan data nama,nim,nilai satu persatu dan keluarannya namanya harus sesuai abjad. Misal mahasiswa 1 nama Budi,mahasiswa 2 Adi,maka keluarannya nama Adi dahulu baru kemudian Budi. Lebih jelasnya liat program dibawah ini.

uses wincrt;
type rec_mhs = record
             nama:string;
             nim:string;
             nilai:integer;
             end;
var mhs:array[1..10] of rec_mhs;
    n,i,j:integer;

procedure input_data;
begin
     for i:= 1 to n do
     begin
          writeln('Mahasiswa',i);
          write('Nama  :');readln(mhs[i].nama);
          write('Nim   :');readln(mhs[i].nim);
          write('Nilai :');readln(mhs[i].nilai);
          writeln;
     end;
end;

procedure urut;
var t:string;
begin
     for i:= 1 to n-1 do
         for j:= 1+i to n do
             if mhs[i].nama>mhs[j].nama then
             begin
             t:=mhs[i].nama;
             mhs[i].nama:=mhs[j].nama;
             mhs[j].nama:=t;
             end;
end;

procedure cetak;
begin
for i:= 1 to n do
writeln(i:2,mhs[i].nama:6,mhs[i].nim:8,mhs[i].nilai:10);
end;

begin
write('Masukkan Jumlah Mahasiswa :');readln(n);
input_data;
urut;
writeln('No    Nama   No.mhs    Nilai');
cetak;
end.