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

Begin     var n : = 10;     var a : = arrrandom(n, -50, 50);           println('исходный массив: ');     a.println;         var nochanges: boolean;     repeat       nochanges : = true;       for var i : = 0 to n - 2 do           if a[i] > a[i + 1] then           begin             swap(a[i], a[i + 1]);             nochanges : = false;           end;     until nochanges;         println('отсортированный массив: ');     a.println; end.

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.