Algoritmia - algoritmos en arreglos burbuja y burbuja mejorada

Porfavor necesito urgente estoy dos algoritmmos en arreglos de burbuja y de un burbuja mejorada agradeceria mucho sus molestias

Metodo Burbuja, Pascal.
Siendo A la estructura de datos a ordenar y Max_elem la cantidad de elementos en esa estructura. I y J son indices de la estructura y x una variable del mismo tipo que el tipo base de la estructura.

begin
for i:=2 to max_elem do
begin
for j:=max_elem downto 1 do
if A[j-1] > A[j] then
begin
x:=A[j-1];
A[j-1]:=A[j];
A[j]:=x;
end;
end;
end;
end.

hacer el metodo de la burbuja mejorada

quiero un ejercicio de la burbuja mejorada

quiero un ejercicio resueltos de la burbuja mejorada

deseo que envie un trabajo de arreglos para poder giarme tanto como simple y multiple.
gracias

bueno pues quiero ejercicios de todo tipo de arreglos resueltos tanto simples y multiples. Gracias

programa de burbuja mejorado aplicado a un arreglo de 10 nombres