Сортировка массива обменами по возрастанию - Pascal

const n = 15;
var a: array[1..n] of integer;
    i, t: integer;
    b: boolean;
begin
  randomize;
  writeln('Массив:');
  for i := 1 to n do
    begin
      a[i] := -99 + random(199);
      write(a[i]:4)
    end;
  writeln;
  repeat
    b := true;
    for i := 1 to n - 1 do
      if a[i] > a[i + 1]
        then begin
          t := a[i];
          a[i] := a[i + 1];
          a[i + 1] := t;
          b := false
        end;
  until b;
  writeln('Отсортированный массив:');
  for i := 1 to n do write(a[i]:4);
  readln
end.