Selection Sort Angka

uses crt;
type
   data=array [1..50] of byte;
var
   nilai:data;
   n,i,no,a,j,temp:byte;
begin
   clrscr;
   i:=1;
   write('n: ');readln(n);
   for i := 1 to n do
   begin
      write('nilai ',i,' : ');readln(no);
      nilai[i]:=no;
      no:=0;
   end;

   for a:= 1 to (n-1) do
   begin
      for j:= a+1 to n do
      begin
         if nilai[j] < nilai[a] then
         begin
            temp:=nilai[j] ;
            nilai[j]:=nilai[a];
            nilai[a]:= temp;
         end;
      end;
   end;

   writeln('Urut dari kecil ke besar');

   for i := 1 to n do
   begin
      write(nilai[i],' ');
   end;
   readln;
end.