Одномерный массив А длиной N<=40 заполнить случайными числами из диапазона [– 20.50]. Составить программу:  определить

program diap;
const n=40;
type
massiv=array[1..n] of integer;
var
A:massiv;
t,m,k,max:integer;
procedure zapolnenie(var B:massiv;m1:integer);
var
i:integer;
begin
randomize;
          for i:=1 to m1 do B[i]:=random(71)-20;
          end;
              procedure vivod (var B:massiv;m1:integer);
              var i :integer;
              begin
              for i:=1 to m1 do
              write (B[i]:4);
              end;

program Zadanie227project1;
 
 
const
  maxelem = 40;
type
  Tmassiv = array[1..maxelem] of integer;
 
 
procedure zapolnenie(var B: Tmassiv; m1: integer);
{ Процедура заполняет массив случайными числами в диапазоне от -20 до 50}
var
  i:integer;
begin
  randomize;
  for i:= 1 to m1 do
    B[i]:= random(71)-20;
end;
 
 
procedure vivod (B: Tmassiv; m1: integer);
{Процедура выводит элементы массива в консоль}
var
  i: integer;
begin
  for i:= 1 to m1 do
    write (B[i]:4);
  writeln;
end;
 
function poslednelement(B: Tmassiv; m1: integer; var elem: integer): boolean;
{ Функция возвращает true если в массиве найден последний
положительного элемент кратный трем. Значение элемента выводится в
параметре }
var
  i:integer;
begin
  poslednelement:= false;
  for i:= m1 downto 1 do
    {Условие для поиска последнего положительного элемента}
    if (B[i] > 0) and (B[i] mod 3 = 0) then
      begin
        elem:= B[i];
        poslednelement:= true;
        break;
      end;
 
end;
 
 
function zamenaelementa (var B: Tmassiv; m1: integer): boolean;
{Функция возвращает true если заменяет максимальный по модулю
отрицательный элемент нулем. Функция возвращает false, если в
массиве нет отрицательных элементов}
var
  i, min, ind: integer;
begin
  zamenaelementa:= false;
  min:= 0;
  for i:= 1 to m1 do
    {Условие для поиска индекса максимального по модулю отрицательного элемента}
    if (B[i] < min) and (B[i] < 0) then
      begin
        min:= B[i];
        ind:= i;      { Ищется индекс максимального по модулю элемента}
        zamenaelementa:= true;
      end;
  if zamenaelementa then
    B[ind]:= 0; {Найденный элемент заменяется нулем}
 
end;
 
 
function indexotrizateln (B: Tmassiv; m1: integer; var C: Tmassiv; var m2: integer): boolean;
{Функция возвращает true если есть хотя бы один отрицательный элемент.
 Функция возвращает в параметре С массив с индексами отрицательных элементов
 массива B. В параметре m2 возвращается количество найденных индексов}
var
  i: integer;
begin
  indexotrizateln:= false;
  m2:= 0;
  for i:= 1 to m1 do
    {Условие для поиска индекса отрицательного элемента}
    if B[i] < 0 then
      begin
        inc(m2);{Увеличивается счетчик найденных элементов}
        C[m2]:= i;   { Ищется индекс отрицательного элемента и заносится во второй массив}
        indexotrizateln:= true;
      end;
 
end;
 
 
var
  A,A1,D: Tmassiv;  { Переменные для хранения массивов}
  t: integer;    { Переменная для хранения значения последнего положительного элемента}
  m,k: integer;  { Переменные для хранения значения количества элементов в массивах}
 
begin
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(m);                        {Ввод значения количества элементов массива}
    if (m < 1) or (m > maxelem) then   {Условие проверки введенного значения на допустимый диапазон}
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  zapolnenie(A,m);
  writeln('Исходный массив:');
  vivod(A,m);
  writeln;
  if poslednelement(A,m,t) then
    writeln('Последний положительный элемент кратный трем равен: ',t)
  else
    writeln('В массиве нет положительных элементов кратных трем.');
  A1:= A;
  writeln;
  if zamenaelementa(A1,m) then
    begin
      writeln('Массив после замены максимального по модулю отрицательного элемента нулем:');
      vivod(A1,m);
      writeln;
      if indexotrizateln(A,m,D,k) then
        begin
          writeln('Индексы отрицательных элементов массива: ');
          writeln('(В качестве аргумента используется исходный массив.)');
          vivod(D,k);
        end
    end
  else
    writeln('В массиве нет отрицательных элементов.');
  readln;
end.