Pues sigue sin correrme el bendito programa, este es mi codigo fuente:
program burbuja;
uses crt;
const
n=5;
var
i,j,temp:integer;
a:array[1..n] of integer;
begin
clrscr;
writeln('Metodo de ordenacion de la burbuja');
writeln('Escribe 5 numeros enteros');
readln(a[i]);
for j:=1 to (n-1) do
for i:=1 to (n-1) do
if (a[i])>(a[i+1]) then
begin;
temp:=a[i];
a[i]:=a[i+1];
a[i+1]:=temp;
end;
writeln('El resultado es ', a[i]);
readln;
end.
a todo eso sale de resultado un grandioso 0
