x,i:integer;
label 1;
begin
1:
for i:=1 to n do
if i<>n then
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x;
goto 1;
end ;