Упорядочивание одномерного массива

{сортировка метод пузырька с флажком}
 var
 a:array [1..20] of integer;
 i,j,n,c:integer;
 flag:boolean;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100);
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
  {Сортировка пузырьком}
  i:=0;
     repeat
      i:=i+1;
      flag:=false;
         for j:=n-1 downto i do
            if a[j] > a[j+1] then
              begin
                c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c;   {меняем элементы местами}
                flag:=true
              end;
     until not flag;  {Выход при flag=false}
  {вывод массива}
   writeln('Отсортированный массив');
   for i:=1 to n do
      write(a[i]:4);
 end.

{сортировка метод пузырька }
 var
 a:array [1..20] of integer;
 i,j,n,c:integer;
 flag:boolean;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100);
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
  {Сортировка пузырьком}
       for i:=1 to n-1 do
       begin
         for j:=n-1 downto i do
            if a[j] > a[j+1] then
              begin
                c:=a[j]; a[j]:=a[j+1]; a[j+1]:=c;   {меняем элементы местами}
              end;
        end;
  {вывод массива}
   writeln('Отсортированный массив');
   for i:=1 to n do
      write(a[i]:4);
 end.