основной принцип пузырьковой сортировки это обмен двух близлежащих элементов массива проходя по всем элементам.
А вы сами как думаете ?
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.