Одномерные массивы: поиск элементов с заданными свойствами

const
  n = 10;
 
type
  Arr = array[1..n]  of real;
 
var
  a: Arr;
 
function min(var a: Arr): integer;
begin
  result := 1;
  while a[result] <= 0 do 
    inc(result);
  var k := result;
  for var i := k to n do
    if (a[i] > 0) and (a[i] < a[result]) then result := i;
end;
 
procedure Out(var a: Arr);
begin
  write('Массив: ');
  for var i := 1 to n 
    do  
    write(a[i]:5);
  writeln;
end;
 
procedure DoubleSum(var a: Arr);
var
  sum: real;
begin
  for var i := 1 to n do
    if a[i] > 0 then sum += a[i];
  writeln('Удвоенная сумма положительных элементов массива: ', sum * 2);
end;
 
procedure Bigger(var a: Arr);
begin
  write('Индексы элементов, значения которых больше значения предыдущего элемента: ');
  for var i := 2 to n do 
    if a[i] > a[i - 1] then write(i, ' ');
  writeln; 
end;
 
procedure SameSign(var a: Arr);
var
  k: integer;
begin
  write('Две пары соседних элементов с одинаковыми знаками: ');
  for var i := 2 to n do 
    if a[i] * a[i - 1] > 0 then inc(k);
  if k > 1 then
    writeln('есть')
  else writeln('нет'); 
end;
 
procedure Change0(var a: Arr; i: integer);
begin
  a[i] := 0;
  Out(a);
end;
 
procedure Change(var a: Arr; k1, k2: integer);
begin
  for var i := k1 to k2 do a[i] := 1 / a[i]; 
  Out(a);
end;
 
begin
  write('Введите массив: ');
  for var i := 1 to n do
    read(a[i]);
  Out(a);
  DoubleSum(a);
  Bigger(a);
  SameSign(a);
  writeln('Заменить минимальный мо модулю положительный элемент нулем');
  Change0(a, min(a));
  var k1, k2: integer;
  write('заменить элементы с ');
  readln(k1);
  write('по ');
  readln(k2);
  writeln('на обратные');
  Change(a, k1, k2);
end.