Sintaks / Listing / Script Program Sorting Shell Sort

program mengurutkan_bilangan;
uses crt;

var
   y:array[1..100] of integer;
   a,b,n,i,c,temp:integer;
begin
     clrscr;
     writeln('************* Selamat Datang ************');
     writeln('** Program Mengurutkan n buah bilangan **');
     writeln('************ Selamat bekerja ************');
     writeln;
     write('Masukkan banyak bilangan : ');
     readln(n);
     writeln;
     for i:=1 to n do
         begin
              write('Masukkan bilangan ke-',i,' : ');
              readln(y[i]);
         end;
     for i:=n div 2 downto 1 do
         begin
              for a:=1 to n-i do
                begin
                  if y[a] > y[a+i] then
                     begin
                          temp := y[a];
                          y[a] := y[a+i];
                          y[a+i] := temp;
                     end;
                end;
         end;
     writeln;
     writeln('Berikut bilangan yang telah urut :');
     for i:=1 to n do
           writeln('Bilangan ke-',i,' : ',y[i]);
     readln;
end.