Это старая версия документа!

const 
    N = 100;
var
    A : array [1..N] of integer;
    I, J : integer;
     
procedure BubbleSort;
var
  T: Integer;
begin
  for I := N downto 1 do
    for J := 1 to N-1 do
      if A[J] > A[J + 1] then
      begin
        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;
      end;
end;

begin
   Randomize;
   for I := 1 to N do A[I] := random(N);
   for I := 1 to N do write(A[I],' ');
   writeln;
   BubbleSort;
   for I := 1 to N do write(A[I],' ');
end.