冒泡排序和选择排序

var
i,j,t,max,min,pos:longint;
a:array[1..10] of longint=(20,14,21,4,7,12,17,30,25,36);

procedure BubbleSort;
begin
	for i:=1 to 9 do
	begin
		for j:=1 to 10-i do
		begin
			if a[j]>a[j+1] then
			begin
				t:=a[j];
				a[j]:=a[j+1];
				a[j+1]:=t;
			end;
		end;
	end;
end;

procedure SelectSort;
begin
	for i:=1 to 9 do
	begin
		min:=a[i];
		pos:=i;
		for j:=i+1 to 10 do
		begin
			if a[j]<min then
			begin
				min:=a[j];
				pos:=j;
			end;
		end;
		t:=a[i];
		a[i]:=a[pos];
		a[pos]:=t;
	end;
end;

begin
	
	//BubbleSort;
	SelectSort;
	
	for i:=1 to 10 do write(a[i]:5);
end.