Program BUBBLE SORT terurut menaik

program sortingmenaik;

uses crt;

type

    mahasiswa = record

       nama : string [15];

       nilai  : string [15];

       end;

var

 i,j,n : integer ;

 mhs : array [1..15] of mahasiswa;

 siswa : mahasiswa;

 const

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

    b=('Nama                                       Nilai');

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

 procedure input;

 begin

 for i:= 1 to n do

  begin

    with mhs[i] do

     begin

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

     write(mhs[i].nilai:44);

     writeln;

     end;

  end;

  writeln(a);

 end;

 begin

 clrscr;

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

 for i :=1 to n do

 begin

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

 write('Nilai: ');readln(mhs[i].nilai);

 writeln;

 end;

 write('data semula');

 writeln(a);

 writeln(b);

 writeln(c);

  for i:=n downto 1 do

      for j:=2 to i do

      begin

      if mhs[i].nilai < mhs[j].nilai then

          begin

          siswa:=mhs[i];

          mhs[i]:=mhs[j];

          mhs[j]:=siswa;

          end;

       end;

  writeln;

  write('sorting berdasarkan nilai');

  writeln(' ');

  writeln(b);

  writeln(a);

  writeln(c);

  writeln;

  write('selesai...');readln;

readkey; end.