Contoh Program Pascal Buble Sort

Contoh Program Pascal Buble Sort
program buble2;
uses wincrt;
var
datamhs : record
      NIM : string;
Nama : string;
Nilai : integer;
end;
    var  siswa : array [1..100] of integer;
    i,j,temp,jumlah:integer;
    begin
    clrscr;
write('Masukan jumlah siswa : ');
  readln(jumlah);
  for I:=1 to jumlah do
        begin

clrscr;
  write('Mahasiswa ke-',i);
  write('Masukan NIM   : ');readln(siswa[i].NIM);
  write('Masukan Nama  : ');readln(siswa[i].Nama);
  write('Masukan Nilai : ');readln(siswa[i].Nilai);
        end;
write('Daftar Mahasiswa yang belum terurut ');
  for I:=1 to jumlah do
        begin
  write(NIM,.Nama,siswa.Nilai);
for I:=1 to jumlah do
begin
temp:=siswa[i].Nilai;
  j:=i-1;
  while(j>=0 and temp<siswa[j].Nilai)
    siswa[j+1].Nilai=siswa[j].Nilai;
     j:=j-1;
    siswa[j+1].Nilai=temp
write('Daftar Mahasiswa yang sudah terurut ');
  write("    NIM         NAMA      NILAI');
  for I:=1;
write(NIM,siswa[1].Nama,Nilai);