Necesitaría saber cuál es el error en el programa con el siguiente código fuente:
Nota: Estoy utilizando el software Delphi.
-------------------------------------------------------------------------------------------------
program burbuja;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
vector=array[1..10] of integer;
var
v:vector; i,n:integer;
procedure burbuja (var v:vector; n:integer);
var
i,j,aux:integer;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if v > v[j+1] then
begin
aux:=v[j];
v[j]:=v[j+1];
v[j+1]:=aux;
end;
end;
end;
begin
n:=10;
for i:=1 to n do
begin
writeln('Ingrese valor');
readln(v);
end;
burbuja(v,n);
for i:=1 to n do
begin
writeln(v);
end;
readln;
end.
