Function and procedure

[darm]

Help me!
Добавить процедуру в программу

PHP код:

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. 


и функцию в эту программу

PHP код:

Program asd;
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('Введи число: ');
  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. 


[type_Oleg]

Во втором примере - вот это :

 For i:=1 to n do 
  begin 
   Ind:=i;  // зачем нужна переменная ind ? Можно без неё
   If not Ind mod 2 = 0 then 
   begin 
    S:=S+A[i]; 
    Sr:=S/n; 
   end; 
  end;

оформите в виде функции, типа :

function MeanOdd(arr:tArray):Real;

В начале программы (после Const n=5; ) надо будет описать тип tArray :

type tArray=array[1..n] of Integer;

[darm]

не получилось