Упорядочить выбором массив целых чисел по возрастанию

uses crt;
const n=10;
var a:array [1..100]of integer;
    i,j,nmin,buf:integer;
Begin
writeln('Èñõîäíûé ìàññèâ:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln;
for i:=1 to n-1 do
  begin
    nmin:=i;
    for j:=i+1 to n do
    if a[j]<a[nmin] then nmin:=j;
    buf:=a[i];
    a[i]:=a[nmin];
    a[nmin]:=buf;
  end;
writeln('Óïîðÿäî÷åííûé ìàññèâ: ');
for i:=1 to n do
write(a[i]:4);
end.

uses crt;
const c=10;
var a:array[1..100] of integer;
i,j,buf:integer;
begin
write('Исходный массив: ');
  for i:=1 to c do
    begin
      a[i]:=random(20);
    end;
  for i:=1 to c do
    begin
      write(a[i]:3);
    end;
 writeln;
  for i:=2 to c do
    begin
      buf:=a[i];
        j:=i-1;
      while (j>=1) and (a[j]<buf) do
          begin
             a[j+1]:=a[j];
             j:=j-1;
          end;
      a[j+1]:=buf;
     end;
  write('Сортированный массив: ');
   for i:=1 to c do
     begin
       write(a[i]:3);
     end;
     
 end.