SoloCodigo

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.