Напишите вариант метода пузырька, который заканчивает работу, если на очередном шаге внешнего цикла не было перестановок. (pascal)

Const   n = 10; var   a: array[1..n] of integer;   i, j, t: integer;   flag: boolean;   begin   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(101)-50;       write(a[i]: 4)   end;   writeln;   i: =1;   repeat       flag: =true;       for j : = 1 to n-i do           if a[j] > a[j+1] then           begin t : = a[j]; a[j] : = a[j+1]; a[j+1] : = t; flag: =false end;       inc(i);   until (i> n-1) or flag;   writeln('отсортированный по возрастанию массив');   for i : = 1 to n do write(a[i]: 4);   writeln end. тестовое решение: исходный массив   -32  -7    2    2  50 -33    1  31    4 -16 отсортированный по возрастанию массив   -33 -32 -16  -7    1    2    2    4  31  50