{ сортировка массива "пузырьком" по возрастанию }
const n = 10; { количество элементов в массиве }
var a:array[1..n] of integer;
   i,j,x:integer;
begin
    writeln('введите ',n,' элементов массива');
    for i:=1 to n do readln( a[i] );
    for i:=1 to n-1 do begin
        for j:=i+1 to n do begin
          if a[i]>a[j] then begin
             x:=a[i]; a[i]:=a[j]; a[j]:=x;
          end;
        end;
    end;
    writeln('после сортировки:');
    for i:=1 to n do writeln( a[i] );
end.

w:=true;
while w do
 begin
   w:=false;
   for j:=1 to n-1 do
     if a[j]>a[j+1] then
       begin
         w:=true; x:=a[j+1];
         a[j+1]:=a[j]; a[j]:=x;
       end;
 end;