Вы бы назвали этот алгоритм пузырьковой сортировкой?
основной принцип пузырьковой сортировки это обмен двух близлежащих элементов массива проходя по всем элементам. 
А вы сами как думаете ?
UPD1:const
    maxn = 100;
var
    a: array[1..maxn] of longint;
    i, j, r, n: longint;
begin
    readln(n);
    for i:= 1 to n do
        read(a[i]);
    for i:= 1 to n-1 do
        for j:= i+1 to n do
            if a[j] > a[j-1] then
            begin
                r:= a[j]; a[j]:= a[j-1]; a[j-1]:= r;
            end;
    for i:= 1 to n do
        write(a[i], ' ');
    writeln;

end.
UPD2: но вот так правильнее:const
    maxn = 100;
var
    a: array[1..maxn] of longint ;
    i, j, r,n : longint;
begin
    readln(n);
    for i:= 1 to n do
        read(a[i]);
    for i:= 1 to n do
        for j:= 1 to n-i do
            if a[j] > a[j+1] then
            begin
                r:= a[j]; a[j]:= a[j+1]; a[j+1]:= r;
            end;
    for i:= 1 to n do
        write(a[i], ' ');
    writeln;

end.
Если вопрос стоит именно так: "Вы бы назвали бы этот алгоритм пузырьковой сортировкой?", то, безусловно, ответ: показанный первоначально код является вариантом пузырьковой сортировки - наихудшим из известных алгоритмов сортировки.
Мелкие вариации в реализации на название метода не влияют.