Сортировка масива

program pr_1;
var
mas:array[1..10] of integer;
tmp,i,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('vvedite elementi masiva');
for i:=1 to n do
mas[i]:=random(10);
writeln;
write('vivod masiva');
for i:=1 to n do
write(mas[i],' ');
writeln;
writeln('sortirovka ept');
for i:=1 to n div 2 do
begin
tmp:=mas[i];
mas[i]:=mas[n-i+1];
mas[n-i+1]:=tmp;
writeln;
readln;
end;
writeln;
readln;
readln;
end.

{сортировка метод пузырька }
 var
 a:array [1..20] of integer;
 i,j,n,c:integer;
 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.

for i:=1 to n div 2 do
begin
tmp:=mas[i];
mas[i]:=mas[n-i+1];
mas[n-i+1]:=tmp;
writeln;
readln;
end;

for i:=1 to n-1 do
begin
if mas[i]>mas[i+1] then
 begin
tmp:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=tmp;
end;
end;