Дан целочисленный вектор. Если количество нулевых элементов в 2 раза меньше количества положительных элементов

program Zadanie85;
var
  a: array[1..50] of integer; // Переменная для хранения массива.
  i: integer;   //    Промежуточная переменная для организации циклов.
  buf: integer;  //  Промежуточная переменная для организации обмена значениями.
  n: integer;  //  Переменная для хранения значения количества элементов массива.
  k1: integer;  //  Переменная для подсчета количества элементов с нулевыми значениями.
  k2: integer;   // Переменная для подсчета количества элементов с положительными значениями.
  ind1: integer;  // Переменная для хранения индекса первого найденного элемента с четным значением.
  ind2: integer;  // Переменная для хранения индекса первого найденного элемента с не четным значением.
 
begin
randomize;
writeln('Введите количество элементов массива:');
Readln(n);
for i:= 1 to  n do
  begin
  writeln('Введите значение ',i,' элемента:');
  Readln(a[i]);   // Заполнение массива в ручном режиме.
  end;
writeln('Исходный массив:');
for i:= 1 to  n do
 write(a[i],'  ');    // Вывод исходного массива на экран.
 
k1:= 0;
k2:= 0;
for i:= 1 to n do
  begin
  if a[i] = 0 then    // Условие поиска элементов с нулевым значением.
   inc(k1);           // Счетчик найденных элементов.
  if a[i] > 0 then    // Условие поиска элементов с положительным значением.
   inc(k2);           // Счетчик найденных элементов.
  end;
ind1:= 0;
for i:= 1 to n do
  if not odd(a[i]) then  // Условие поиска элементов с четным значением.
    begin
     ind1:= i;            // Получение индекса найденного элемента.
     break;
    end;
ind2:= 0;
for i:= 1 to n do
  if odd (a[i]) then  // Условие поиска элементов с нечетным значением.
    begin
     ind2:= i;             // Получение индекса найденного элемента.
     break;
    end;
writeln;
if k1 = 0 then
  writeln('В массиве не найдены элементы с нулевым значением.')
else
  writeln('Количество элементов с нулевым значением: ',k1);
if k2 = 0 then
  writeln('В массиве не найдены элементы с положительным значением.')
else
  writeln('Количество элементов с положительным значением: ',k2);
if Ind1 = 0 then
  writeln('В массиве не найдены элементы с четным значением.')
else
  writeln('Индекс первого элемента с четным значением: ',ind1);
if Ind2 = 0 then
  writeln('В массиве не найдены элементы с нечетным значением.')
else
  writeln('Индекс первого элемента с нечетным значением: ',ind2);
if 2*k1 = k2 then   // Если количество нулевых элементов в 2 раза меньше положительных, то.
  begin
  writeln('Количество элементов с нулевым значением в 2 раза меньше, чем элементов с положительным значением.');
  buf:= a[ind1];    // ... поменять местами элементы с первым четным и первым нечетным значением.
  a[ind1]:=a[ind2];
  a[ind2]:= buf;
  end
else
  begin
  writeln('Количество элементов с нулевым значением либо больше, либо меньше,');
  writeln('чем в 2 раза по сравнению с количеством элементов с положительным значением.');
  for i:= 1 to n do    // ... иначе прибавить ко всем элементам массива число 4.
    a[i]:=a[i] + 4;
  end;
writeln('Измененный массив:');
for i:= 1 to n do
  write(a[i],'  ');
Writeln;
Readln;
end.