Подсчитать сумму чисел, меньших заданного D, и количество чисел, стоящих на четных местах и больших заданного

uses
  crt;
const
  max=100;
var
  m:array[1..max]of real;
  D,C,sum:real;
  i,n,Q:integer;
begin
  cls;
  write('D,C='); readln(D,C);
  n:=random(max+1);
  sum:=0;
  Q:=0;
  writeln('Массив (',n,' элементов):');
  for i:=1 to n do
  begin
    m[i]:=random*100-50;
    write(m[i]:4:2,' ');
    if m[i]<D then sum:=sum+m[i];
    if (i mod 2=0)and(m[i]>C)then Inc(Q);
  end;
  writeln;
  writeln(Сумма чисел меньших ',D,' = ',sum);
  writeln('Количество чисел, стоящих на четных местах и больших заданного ',C,' = ',Q);
end.

uses
  crt;
const
  max=100;
var
  m:array[1..max]of real;
  A,B,sum,sa,Q1:real;
  i,n,Q2:integer;
begin
  cls;
  write('A,B='); readln(A,B);
  n:=random(max+1);
  Q1:=0;
  Q2:=0;
  writeln('Массив (',n,' элементов):');
  for i:=1 to n do
  begin
    m[i]:=random*100-50;
    write(m[i]:4:2,' ');
    if (m[i]<A)and(m[i]>B)then
    begin
      Q1:=Q1+1;
      sum:=sum+m[i];
    end;
    if (i mod 3=0)and(m[i]>0)then Inc(Q2);
  end;
  sa:=sum/Q1;
  writeln;
  writeln(Среднее арифметическое чисел не попадающих в промежуток [',A,';',B,']: ',sa);
  writeln('Количество положительных чисел, стоящих на местах кратных 3: ',Q2);
end.

uses
  crt;
const
  max=100;
var
  m:array[1..max]of real;
  i,n,i_min:integer;
  r:real;
begin
  cls;
  n:=random(max+1);
  i_min:=1;
  writeln('Размер массива: ',n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    m[i]:=random*100-50;
    write(m[i]:4:2,' ');
    if m[i]<m[i_min] then i_min:=i;
  end;
  if i_min>1 then
  begin
    r:=m[i_min-1];
    m[i_min-1]:=m[i_min];
    m[i_min]:=r;
  end;
  writeln;
  writeln('Измененный массив:');
  for i:=1 to n do
    write(m[i]:4:2,' ');
end.