Элементами одномерного массива являются n случайных целых чисел, значения которых заданы в диапазоне от -40 до 50 (n задает пользователь)

uses crt;
 
const
  nmax = 20;
 
type
  mas = array [1..nmax] of integer;
  
procedure EnterArray (var A : mas; n : integer);
var
  i : integer;
begin
  Randomize;
  Writeln('Исходный массив: ');
  for i := 1 to n do
    begin
      A[i] := random(91) - 40;
      Write(A[i]:3, ' ');
    end;
  Writeln;
end;
 
procedure Find (A : mas; n : integer);
var
  i, sum : integer;
  num : integer;  
begin
  sum := 0;  num := 0;
  Writeln('Индексы отрицательных элементов: ');
  for i := 1 to n do
    begin
      if A[i] > 0 then sum := sum + A[i];
      if odd(A[i]) then inc(num);
      if A[i] < 0 then Write('[', i, '] ');
    end;
  Writeln;
  Writeln('Сумма положительных элементов: ', sum);
  Writeln('Количество нечетных: ', num);
end;
 
procedure Print (A : mas; n : integer);
var
  i : integer;
begin
  for i := 1 to n do
    if odd(i) then Write(A[i]:3, ' ')
      else Writeln(A[i]);
  Writeln;
end; 
 
procedure Print3 (A : mas; n : integer);
var
  i : integer;
begin
  for i := 1 to n do
    if i mod 3 <> 0 then Write(A[i]:3, ' ')
      else Writeln(A[i]);
  Writeln;
end;
 
var
  A : mas;
  n : integer;
begin
  ClrScr;
  Repeat
    Write('Размер массива (не более ', nmax, '): ');
    Readln(n);
  until n in [1..nmax];
  EnterArray(A, n);
  Find(A, n);
  Print(A, n);
  Print3(A, n);
end.