program d9;
const n=10;
var a:array [1..n] of integer;
i,j,k,t:integer;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
k:=i;
for j:=i+1 to n do
if a[j]>a[k] then k:=j;
if k>1 [color=red]这个ＦＩ到ＢＥＧＩＮ和下面的ＥＮＤ删去有什么不同？？[/color]
then
begin
t:=a[k];
a[k]:=a[i];
a[i]:=t
end
end;
for i:=1 to n do writeln(a[i]);
readln;
end.
