Элементы массива, стоящие до минимального элемента, разделить на ср. арифметическое элементов кратных трем

program zad;
 
const
  n = 29;
 
type
  TMassI = Array[0..n] of Integer;
  TMassD = Array[0..n] of Double;
 
procedure FillArray(var m : TMassI; var p : TMassD);
var
  i : Byte;
begin
  for i := 0 to n do
  begin
    m[i] := Random(10) - 5;
    p[i] := m[i];
  end;
end;
 
procedure PrintArray(m : TMassI; p : TMassD);
var
  i : Byte;
begin
  WriteLn;
  WriteLn('old', #9, 'new');
  for i := 0 to n do
    WriteLn(m[i], #9, p[i]:5:2);
  WriteLn;
end;
 
function FindMinPos(m : TMassI) : Byte;
var
  i : Byte;
  min : Integer;
  //Result : Byte;
begin
  min := m[0]; Result := 0;
  for i := 1 to n do
    if (min > m[i]) then
    begin
      Result := i;
      min := m[i];
    end;
  findMinPos := Result-1;
end;
 
function Avr3(m : TMassI) : Double;
var
  i, count : Byte;
  //Result : Double;
begin
  Result := 0;
  for i := 0 to n do
    if ((m[i] mod 3 = 0) and (m[i] <> 0)) then
    begin
      Result := Result + m[i];
      Inc(count);
    end;
  Avr3 := Result / count;
end;
 
var
  x : TMassI;
  xRes : TMassD;
  avr : Double;
  i : Byte;
 
begin
  FillArray(x, xRes);
  avr := Avr3(x);
  if (avr = 0) then
    WriteLn('Преобразование невозможно! Среднее арифметическое равно нулю!')
  else
  begin
    for i := 0 to FindMinPos(x) do
      xRes[i] := xRes[i] / avr;
    PrintArray(x, xRes);
  end;
end.