program ex5_8;
const
n=10;
var
a: array[1..n] of integer;
i,j,t : integer;
begin
for i :=1 to n do readln(a[i]); //书里没加分号编译不出来所以自己加上了
for j :=1 to n-1 do
for i :=1 to n-j do
if a[j] < a[i+1] then
begin
t :=a[i]; a[i] :=a[i+1]; a[i+1] :=t;
end;
for i :=1 to n do
write(a[i] : 5);
end.
是一个冒泡排序法，编译是可以编译，但是输入是什么输出就是什么XD
这是书上的例题啊，求解。

const
n=10;
var
a: array[1..n] of integer;
i,j,t : integer;
begin
for i :=1 to n do readln(a[i]);
for j :=1 to n-1 do
for i :=j+1 to n do
if a[j] < a[i] then
begin
t :=a[j]; a[j] :=a[i]; a[i] :=t;
end;
for i :=1 to n do
write(a[i] : 5);
end.
书上的写法可能有问题，记这个吧。
另外表示数组下标的整数最好用 SizeInt 类型。