Pengurutan Data Menggunakan Bubble Sort

program inputdtmhs;
uses wincrt;
type
dtmhs=record
   nomor    : integer;
   nama     : string [20];
   IP       : real;
   end;
_dtmhs = array[1..10] of dtmhs;
procedure input;
var
 jumlahmhs,
 I,J       : byte;
 Mahasiswa : array[1..10] of dtMhs;
 Dummy     : dtmhs;

Begin
(*memasukkan data mahasiswa*)
write('jumlah mahasiswa?'); readln(jumlahmhs);
for I:=1 to jumlahmhs do
begin
     writeln;
 with mahasiswa [I] do
 begin
      writeln;
      write('nomor mahasiswa ke',I:2,'?'); readln(nomor);
      write('nama mahasiswa ke',I:2,'?'); readln(nama);
      write('IP mahasiswa ke',I:2,'?'); readln(IP);
 end;
end;

(* mengurutkan data berdasarkan nomor mahasiswa metode Bubble sort *)
{
For I:=1 to JumlahMhs-1 Do
    For J:= 1 to JumlahMhs-1 Do
    If Mahasiswa[J] .Nomor > Mahasiswa[J+1].Nomor Then
    Begin
       Dummy           := Mahasiswa [J];
       Mahasiswa[J]    := Mahasiswa [J+1];
       Mahasiswa[J+1]:= Dummy;

   End;

 }
   (*menampilkan hasil *)

   Writeln;
   Writeln('............................');
   Writeln('Nomor                 Indeks');
   Writeln('Mhs Nama mahasiswa  Prestasi');
   Writeln('............................');
   begin
   For i:=1 to JumlahMhs Do
   Begin
      With Mahasiswa [i] Do
         Writeln(Nomor:5,Nama:20, IP:11:2);


   End;
   Writeln('............................');
   end;
end;

begin
input;
end.