Сортировка простым выбором

uses crt;
const m=100;
var
   a:array[0..m-1] of integer;
   i,j,k,x,n,Sobm:integer;
 
begin
Sobm:=0;
clrscr;
randomize;
repeat;
write('Vvedite n','=');
readln(n);
until n in [1..m];
writeln('Ishodnie zna4eniya');
for i:=1 to n do
begin
a[i]:=random(m);
write(a[i]:3);
end;
writeln;
writeln;
 
for i:=1 to n-1 do
begin
k:=i;
x:=a[i];
for j:=i+1 to n do
begin
if a[j]<x then
 
begin
Sobm:=Sobm+1;
k:=j;
x:=a[j];
end;
end;
a[k]:=a[i];
a[i]:=x;
end;
 
writeln('Otsortirovannie zna4eniya');
for i:=1 to n do
write(a[i]:3);
writeln;
writeln;
write('Kol-vo obmenov','=',Sobm);
readln;
end.

const
 n=10;
var
 arr: array[1..n] of integer;
 i, j, k, buf, min: integer;
begin
 min:=1;
  for i:=1 to n do
    read(arr[i]);
     for i:=1 to n-1 do
      begin
       min:=i;
        for j:=i+1 to n do
         begin
          if arr[j]<arr[min] then
           min:=j;
           buf:=arr[i];
           arr[i]:=arr[min];
           arr[min]:=buf;
            for k:=1 to n do
             write(arr[k], ' ');
             writeln;
         end;
      end; 
end.