program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
A1 : Array[0..9] of Integer = (5, 3, 8, 1, 9, 7, 4, 2, 10, 6);
i : Integer;
procedure BubbleSort(var A : Array of Integer);
var
i , j : Integer;
Aux: Integer;
begin
for j := Low(A) to High(A) - 1 do
for i := j + 1 to High(A) do
begin
if A[j] > A[i] then
begin
Aux := A[j];
A[j] := A[i];
A[i] := Aux;
end;
end;
end;
begin
writeln('Arreglo numerico sin ordenamiento');
for i := Low(A1) to High(A1) do
write(IntToStr(A1[i]) + ' ');
writeln(#10);
writeln('Arreglo numerico con ordenamiento');
BubbleSort(A1);
for i := Low(A1) to High(A1) do
write(IntToStr(A1[i]) + ' ');
readln;
end.