Bubble Sorting

var mas : array [1..20] of integer;
    i, k, p : integer;
begin

   for i := 1 to 20 do
     begin
       mas[i] := random(201)-100;
     end;

   for p := 1 to 20 do
    begin

    for i := 1 to 20 do
      begin
        if mas[i] > mas[i+1] then
          begin
            k := mas[i];
            mas[i] := mas[i+1];
            mas[i+1] := k;
          end;
      end;
     end;

    for i := 1 to 20 do
        ShowMessage(IntToStr(mas[i]));

end;