Завершение пузырьковой сортировки, если во внешнем цикле нет перестановки. Найти ошибку - Pascal ABC

Формулировка задачи:

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

const n=5;
var
a:array[1..n] of integer;
i,j,swap:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(6);
write(a[i]:5);
end;
for i:=1 to n-1 do
 for j:=i+1 to n do
  if a[i]>a[j]then
   begin
   swap:=a[i];
   a[i]:=a[j];
   a[j]:=swap;
   end else if write('ГЇГҐГ°ГҐГ±ГІГ*Г*Г®ГўГ®ГЄ Г*ГҐ ГЎГ»Г«Г®') then exit;
  writeln;
  writeln('ГЊГ*Г±Г±ГЁГў ГЇГ®Г±Г«ГҐ Г±Г®Г°ГІГЁГ°Г®ГўГЄГЁ ГЇГіГ§Г»Г°ГјГЄГ®ГўГ»Г¬ Г¬ГҐГІГ®Г¤Г®Г¬: ');
  for i:=1 to n do
    write(a[i]:5);
 
end.

Решение задачи: «Завершение пузырьковой сортировки, если во внешнем цикле нет перестановки. Найти ошибку»

textual
                            Листинг программы 
                        

                            const n=5;
var
a:array[1..n] of integer;
i,j,swap:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(6);
write(a[i]:5);
end;
for i:=1 to n-1 do begin
  swap:=-32768;
 for j:=i+1 to n do
 
  if a[i]>a[j]then
   begin
   swap:=a[i];
   a[i]:=a[j];
   a[j]:=swap;
   end;
 
  if   swap=-32768 then exit;
end;
  writeln;
  writeln('Массив после сортировки пузырьковым методом: ');
  for i:=1 to n do
    write(a[i]:5);
 
end.
                        