Pseudo-code Sorting (Pengurutan)

program pengurutan;
{program untuk mengurutkan nilai sejumlah mahasiswa}
const
     nmax = 1000; {jumlah maksimum data}
var
    nilai : array[1..nmax] of integer; {tempat untuk menyimpan data}
    i,j, temp,n,imax : integer;
begin

    read(n); {baca data nilai n orang}
    for i := 1 to n do


         readln(nilai[i]);
    end;
  
   {untuk mengurutkan data}
   for i := 1 to n-1 do {ulangi sebanyak n-1 kali}
        begin
              {mencari nilai terbesar}
               imax := i;
               for j := i + 1 to n do
                     if nilai [j] > nilai [i] then
                            imax := j;
                     end;
              end;


              temp := nilai [i];
              nilai [i] := nilai [imax];
              nilai [imax] := temp;
    end;


    for i := 1 to n do {menulis nilai yang telah terurut}
          writeln(nilai [i]);
    end;
end.