Сортировка массивов. Сортировка выбором

Program sort;                         { Сортировка выбором }
  const n = 20;
  var a : array [1 .. n] of integer;    
        i, j, nmax, buf : integer;
begin    
  writeln('Введите ', n, ' элементов массива');    
  for i := 1 to n do read(a[i]);   
  for i := 1 to n - 1 do begin      { просмотр массива n-1 раз }        
      nmax := i;        
      for j := i + 1 to n do            { поиск максимума }            
         if a[j] > a[nmax] then nmax := j;            
      buf := a[i];                  { перестановка }            
      a[i]:= a[nmax];             { двух }            
      a[nmax]:= buf;            { элементов массива }        
  end;        
  writeln('Упорядоченный массив:');        
  for i := 1 to n do write(a[i]:5)
  readln;
end.

uses crt;
var a:array[1..100] of integer;
n,i,k,x,y:integer;
begin
writeln('Введите размерность массива');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i],'');
end;
begin
for i:=1 to n-1 do begin
k:=1;
x:=a[i];
for j=i+1 to n do
if a[j]<x then begin
k:=j;
x:=a[k];
a[i]:=x;
end;
end;
writeln;
write('Отсортированный массив');
writeln;
for i:=1 to n 
begin
write(a[i],'');
end;
end.

var
a: array [1..20] of integer;
i,j,nmin,n,c:integer;
 
begin
  writeln('Введите размер');
  readln(n);
    writeln('Исходный массив');
   for i:=1 to n do
     begin
       a[i]:=random(100)-20;
       write(a[i]:4);
     end;
      writeln;
   for i:=1 to n-1 do begin
      nmin:=i;
     for j:=i+1 to n do
        if a[j] < a[nmin] then begin
          nmin:=j; c:=a[i]; a[i]:=a[nmin]; a[nmin]:=c;
        end;
   end;
     writeln('Отсортированный массив');
    for i:=1 to n do
      write(a[i]:4);
end.