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

[vit9i]

Ребят помогите, нужна прога на делфи, чтобы делала сортировку простым выбором

[Mad_Cat]

procedure SellectionSort( var a: array of integer; min, 
max: Integer); 
var 
i, j, best_value, best_j: longint; 
begin 
for i:=min to max do begin 
best_value:=a[i]; 
best_j:=i; 
for j:=i+1 to max do begin 
if a[j]<best_value then begin 
best_value:=a[j]; 
best_j:=j; 
end; 
end; 
a[best_j]:=a[i]; 
a[i]:=best_value; 
end; 
end;