Расставить числа по убыванию

program Dekio;
const 
n=10;
var
mas :array[1..n] of integer;
i,j,t :integer;
begin
writeln('Введите числа');
for i:=1 to n-1 do
readln(mas[i]);
writeln('Введите b');
readln(mas[n]);
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i] < mas[j] then
begin
t:=mas[i];
mas[i]:=mas[j];
mas[j]:=t;
end;
writeln('Результат');
for i:=1 to n do
write(mas[i],' ');
end.

Uses
 CRT;
Const
 kmmax=40;
var
 B:array [1..kmmax] of integer;
 k,m,i,j,ind,buf:integer;
begin
repeat
 write('Введите кол-во элементов: ');
 readln(m);
until (m in [1..kmmax]);
writeln('Исходный массив: ');
randomize;
for i:=1 to m do
begin
 b[i]:=random(10)-3;
 write(b[i]:3);
end;
writeln;
for i:=1 to m-1 do
for j:=i+1 to m do
 if b[i]<b[j] then
 begin
  buf:=b[i];
  b[i]:=b[j];
  b[j]:=buf;
 end;
writeln('Отсортированый массив: ');
for i:=1 to m do
write(b[i]:3);
writeln;
write('Введите число: ');
readln(k);
ind:=0;
for i:=m downto 1 do
if b[i]<k then
begin
 ind:=i;
end;
m:=m+1;
if ind<>0 then
begin
for i :=m downto ind+1 do
 b[i] := b[i-1];
 b[ind]:=k;
end
else
b[m]:=k;
writeln('массив после вставки: ');
for i:=1 to m do
 write(b[i]:3);
readkey
end.