PROCEDURE selectsort;
      VAR
        i,j,k,temp:integer;
      BEGIN
        FOR i:=1 to n-1 DO
          BEGIN
            k:=i;
            FOR j:=i+1 to n DO
              IF a[k]>a[j]
                 THEN k:=j;
           IF k<>i
             THEN BEGIN
                    temp:=a[k];
                    a[k]:=a[i];
                    a[i]:=temp;
                  END;
          END;
       END;
//delphi/7186