Одномерные массивы.Разность минимума и максимум,сортировка по возростанию

uses crt;
const n=10;
var a: array [1..n] of integer;
    i, k: integer;
begin
     for i:=1 to n do
         begin
              write ('a[',i,']=');
              read (a[i]);
              if a[i] mod 2 = 0 then
                 inc(k);
         end;
     writeln;
     writeln ('Массив');
     for i:=1 to n do
              write (a[i]:4);
     writeln;
     writeln ('Количество четных элементов =',k);
end.

uses crt;
const n=10;
var a: array [1..n] of integer;
    i, max, min: integer;
begin
         for i:=1 to n do
         begin
              write ('a[',i,']=');
              read (a[i]);
         end;
     max:=a[1];
     min:=a[1];
     for i:=1 to n do
              begin
                   if a[i]>max then max:=a[i];
                   if a[i]<min then min:=a[i];
              end;
     writeln ('Разность максімального и минимального =',max-min);
end.

uses crt;
var a:array [1..10] of integer;
    i,j,min,imin,buf:integer;
begin
     writeln ('Исходный массив');
     for i:=1 to 10 do
         begin
               a[i]:=random(101);
               write (a[i]:4);
         end;
         j:=1;
         while j<10 do
               begin
                    min:=a[j];
                    imin:=j;
                    for i:=j to 10 do
                             if a[i]<min then
                                begin
                                     min:=a[i];
                                     imin:=i;
                                end;
                    buf:=a[j];
                    a[j]:=min;
                    a[imin]:=buf;
                    inc(j);
               end;
     writeln;
     writeln ('Отсортированный массив');
     for i:=1 to 10 do
               write (a[i]:4);
end.