selection.pas

   1 program selection_demo(input,output);
   2   const
   3     MAX         = 10;
   4   var
   5     a           : array[1..MAX] of integer;
   6     i, n        : integer;
   7
   8   procedure swap(var a,b : integer);
   9     var
  10       temp      : integer;
  11     begin
  12       temp := a;
  13       a := b;
  14       b := temp;
  15     end;
  16
  17   procedure selection_sort;
  18     var
  19       i         : integer;
  20       max       : integer;
  21       top       : integer;
  22     begin
  23       for top := n downto 2 do
  24         begin
  25           max := top;
  26           for i := 1 to top-1 do
  27             if a[i] > a[max] then
  28               max := i;
  29           swap(a[top],a[max])
  30         end
  31     end;
  32
  33   begin { main }
  34     writeln('How many number would you like to sort (max=',MAX:2,') ?');
  35     readln(n);
  36
  37     writeln('Enter in ',n:1,' numbers:');
  38     for i := 1 to n do
  39       read(a[i]);
  40
  41     selection_sort;
  42
  43     for i := 1 to n do
  44       write(a[i]:1,' ');
  45     writeln
  46
  47   end.
  48