Program sorting nama dengan menggunakan pascal

program sorting;
uses crt;
type
    mahasiswa = record
       nama : string [15];
       npm  : string [15];
       kelas: string[15];
       end;

var
 i,j,n : integer ;
 mhs : array [1..15] of mahasiswa;
 siswa : mahasiswa;

 const

    a=('====================================================');

    b=('NPM                   KELAS                     NAMA');

    c=('====================================================');

 procedure input;

 begin

 for i:= 1 to n do

  begin

    with mhs[i] do

     begin

     write(mhs[i].npm:0);

     write(mhs[i].kelas:20);

     write(mhs[i].nama:24);

     writeln;

     end;

  end;

  writeln(a);

 end;

 begin

 clrscr;

 write('jumlah mahasiswa : ');readln(n);

 for i :=1 to n do

 begin

 write('NPM:');readln(mhs[i].npm);

 write('KELAS:');readln(mhs[i].kelas);

 write('NAMA:');readln(mhs[i].nama);

 writeln;

 end;

 write('data semula');

 writeln(' ');

 writeln(a);

 writeln(b);

 writeln(c);

 begin

   input;

   end;