Разовый вывод 10 случайных чисел

program sortirowka;
uses crt;
const nmax=100;
var a:array [1..nmax]of integer;
    n,i,j,k,b:integer;
begin
randomize;
repeat
writeln('razmer massiwa do ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('ishodny massiw:');
for i:=1 to n do
   begin
     a[i]:=random(101)-50;
           writeln('a[',i,']=',a[i]:4);
   end;
writeln;
for i:=2 to n do
 begin
  b:=a[i];
  j:=1;
  while b>a[j] do inc(j);
  for k:=i-1 downto j do a[k+1]:= a[k];
  a[j]:=b;
 end;
writeln('otsortirowanny massiw:');
for i:=1 to n do
writeln('a[',i,']=' ,a[i]:4);
writeln;
writeln;
writeln('vvedite chislo dlya wstawki b=');
read(b);
n:=n+1;
if b>=a[n-1] then a[n]:=b
else
 begin
  i:=n-1;
  while (a[i]>b)and(i>=1) do
  i:=i-1;
  for j:=n downto i+1 do
  a[j]:=a[j-1];
  a[i+1]:=b;
 end;
writeln('otsortirowanny massiw posle wstawki:');
for i:=1 to n do
writeln('a[',i,']=' ,a[i]:4);
end.

program sortirowka;
uses crt;
const n=10;
var a:array [1..n+1]of integer;
    m,i,j,k,b:integer;
begin
randomize;
m:=n;//размер массива изменится, константу использовать нельзя
writeln('ishodny massiw:');
for i:=1 to n do
   begin
     a[i]:=random(101)-50;
     write(a[i]:4); //зачем в столбик выводить? А если массив большой?
   end;
writeln;
for i:=2 to n do
 begin
  b:=a[i];
  j:=1;
  while b>a[j] do inc(j);
  for k:=i-1 downto j do a[k+1]:= a[k];
  a[j]:=b;
 end;
writeln('otsortirowanny massiw:');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
write('vvedite chislo dlya wstawki b=');
read(b);
m:=n+1;
if b>=a[m-1] then a[m]:=b
else
 begin
  i:=m-1;
  while (a[i]>b)and(i>=1) do
  i:=i-1;
  for j:=m downto i+1 do
  a[j]:=a[j-1];
  a[i+1]:=b;
 end;
writeln('otsortirowanny massiw posle wstawki:');
for i:=1 to m do
write(a[i]:4);
end.