[PASCAL]Сортировка выбором

const N = 10;
 
var 
  a: array [1..N] of integer;
  ind,min,j,i,K: integer;
  IsFound: boolean;
 
begin
  for i:=1 to N do
    a[i] := Random(100);
  writeln('Элементы массива a: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;  
 
  for i:=1 to N-1 do
  begin
    min := a[i]; 
    ind := i;
    for j:=i+1 to N do
      if a[j]<min then
      begin
        min := a[j];
        ind := j;
      end;
    a[ind] := a[i];
    a[i] := min;
  end;
 
  writeln('После сортировки выбором: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;  
end.