Function and procedure

uses
   crt;
 
var
   a: array[1..6] of integer;
   i, min: integer;
 
begin
   a[1] := 1;a[2] := 3;a[3] := 7;a[4] := 1;a[5] := 7;a[6] := 3;
   min := a[1];
   Write('Исход:  ');
   for i := 1 to 6 do
   begin
      Write(a[i], ' ');
      if a[i] < min then
         min := a[i];
   end;
   Writeln;
   for i := 1 to 6 do
      if a[i] = min then
         a[i] := min * (-1);
   Write('Измен:  ');
   for i := 1 to 6 do
      Write(a[i], ' ');
   Writeln();
 
 
 
end.

USES crt;
Const n=5;
VAR A:array[1..n] of integer;
i,ind:integer; s,sr:real;
BEGIN
Clrscr;
Writeln('Заполните массив числами: ');
 
For i:=1 to n do
 begin
  Write('A[',i,']: ');
  Readln(A[i]);
 
 end;
 For i:=1 to n do
  begin
   Ind:=i;
 
   If not Ind mod 2 = 0 then
   begin
 
    S:=S+A[i];
    Sr:=S/n;
   end;
  end;
 
  Writeln('Ср. ар. элементов с нечетными индексами: ',Sr);
END.

uses
    crt;
 
var
    a: array[1..6] of integer;
    i, ind, min: integer;
 
procedure writeArr();
var
    z: integer;
begin
    for z := 1 to 6 do   
        Write(a[z], ' '); 
end;
 
begin
    a[1] := 1;a[2] := 3;a[3] := 7;a[4] := 1;a[5] := 7;a[6] := 3;
    min := a[1];ind:=1;
    Writeln('Исходный:  ');
    writeArr;
    for i := 1 to 6 do    
        if a[i] < min then 
        begin
            ind := i;
            min := a[i];
        end;    
    a[ind] := a[ind] * (-1);
    
    Writeln('Измененный:  ');
    writeArr;
end.

uses
    crt;
 
const
    n = 5;
 
var
    A: array[1..n] of integer;
    i: integer;
 
function Sr(): real ;
var
    i, Sum,count: integer;
begin
    for i := 1 to n do                  
        if i mod 2 <> 0 then 
        begin
            Sum := Sum + A[i];
            count := count + 1;
        end;
    Sr := Sum / count;  
end;
 
begin
    Clrscr;
    Writeln('Заполните массив числами: ');
    for i := 1 to n do
    begin
        Write('A[', i, ']: ');
        Readln(A[i]);        
    end;       
    Writeln('Среднее арифметическое элементов с нечетными индексами: ', Sr);
end.

function Sr: real ;