Задача на массив, В Массиве целых чисел найти минимальный элемент.

const
 n = 20;
var
 arr: array[1..n] of integer;
 i, j, min, max, sr: integer; 
 sum, cnt: integer;
begin
 min:=1; max:=1;
 randomize;
  for i:=1 to n do
   begin
    arr[i]:=random(30)+1;
    write(arr[i], ' ');
     if arr[i] > arr[max] then max:=i
      else if arr[i] < arr[min] then min:=i;
    sum:=sum+arr[i];
   end;
 writeln;
 sr:=sum div n;
 writeln('Минимальный элемент: ', arr[min], '; Максимальный элемент: ', arr[max]);
 writeln('Среднее арифметическое: ', sr);
  for i:=1 to n do
   if arr[i] < sr then inc(cnt);
 writeln('Кол-во элементов меньших среднего арифметического: ', cnt);
end.

const
n=15;
var
a:array[1..n] of integer;
i,j,max_i,min_i:byte;
min,max,count:integer;
s:real;
begin
randomize;
  for i:=1 to n do a[i]:=random(300);
  min:=a[1]; max:=a[1]; min_i:=1; max_i:=1;
  s:=a[i];
  for i:=2 to n do
    begin
      if a[i]>max then begin max:=a[i]; max_i:=i; end;
      if a[i]<min then begin min:=a[i]; min_i:=i; end;
      s:=s+a[i];
    end;
  s:=s/n; count:=0; writeln('ishodny vassiv:');
  for i:=1 to n do write(a[i]:4); writeln;
  writeln('max ', max,' index ',max_i,' min ',min,' index ',min_i);
  for i:=1 to n do if a[i]<s then count:=count+1;
  if max_i>min_i then
    begin
      for i:=1 to n-max_i+1 do a[min_i+i]:=a[max_i+i-1];
      j:=min_i+n-max_i+1;
    end
  else
    begin
      for i:=1 to n-min_i+1 do a[max_i+i]:=a[min_i+i-1];
      j:=max_i+n-min_i+1;
    end;
  writeln('srednee arifmeticheskoe ',s:5:2,' menshe ego ',count,' elementov');
  writeln('rezultat:');
  for i:=1 to j do write(a[i]:4); writeln;
 
end.