Сортировка массива

var
      sum,n,i:integer;
      m: array [1..40] of integer;
      begin
      randomize;
      writeln('Введите 1-ый элемент массива: ');
      read(m[1]);
      writeln('Массив: ');
      write(m[1]:6);
      for i:=2 to 40 do
       begin
       m:=random(1001)-500;
       write(m:6);
       end;
      for i:=1 to 40 do
       if (m > 0) and (m mod m[1] = 0) then
    begin
        sum:=sum+m;
        inc(n);
        end;
      writeln; 
      writeln('Среднее арифметическое = ',sum/n);  
      end.

uses
  crt;
const
  n=40;
var
  k,sum,j,x,i:integer;
  m: array [1..n] of integer;
begin
  randomize;
  writeln('Введите 1-ый элемент массива: ');
  read(m[1]);
  writeln('Массив: ');
  write(m[1]:6);
  for i:=2 to n do
    begin
      m[i]:=random(1001)-500;
      write(m[i]:5);
    end;
    k:=0;
    for i:=1 to n do
      if (m[i] > 0) and (m[i] mod m[1] = 0) then
        begin
          sum:=sum+m[i];
          inc(k);
        end;
  writeln;
  writeln('Среднее арифметическое = ',sum/k);
  { (C) Puporev }
  for i:=1 to n-1 do//смотрим элементы массива с первого
    for j:=i+1 to n do//сравниваем с элементами, которые впереди
       if m[i]<m[j] then//если нашли впереди меньше,
         begin
           x:=m[i];//то с помощью переменной-буфера
           m[i]:=m[j];//меняем элементы местами
           m[j]:=x;
         end;
  for i:=1 to n do
    write(m[i]:5);
  readkey;
end.