Дан целочисленный вектор А(n). Поменять местами последний положительный элемент вектора с первым ненулевым элементом

program Zadanie84;
const
n = 10;   //  Количество элементов массива.
var
a: array [1..n] of integer;  // Переменная для хранения массива.
i: integer;  // Промежуточная переменная для организации циклов.
ind1: integer;  // Переменная для хранения индекса первого ненулевого элемента.
ind2: integer;   // Переменная для хранения индекса последнего положительного элемента.
buf: integer;  // Промежуточная переменная для обмена значений элементов.
reg1: boolean;  // Переменная для проверки корректности нахождения индекса элемента с ненулевым значением.
reg2: boolean;  // Переменная для проверки корректности нахождения индекса элемента с положительным значением.
begin
randomize;
writeln('Исходный массив:');
for i:= 1 to n do
 begin
 a[i]:= random(7) - 3; // Заполнение массива случайными числами.
 write(a[i]:3);
 end;
writeln;
ind1:= 0;
for i:= 1 to n do     // Поиск индекса первого элемента  с ненулевым значением.
 if a[i] <> 0 then
    begin
    ind1:= i;
    writeln('Индекс первого элемента с ненулевым значением: ',ind1);
    break;
    end;
reg1:= true;
if ind1 = 0 then     // Проверка поиска элемента по условиям задачи.
   begin
     writeln('В массиве нет элементов с ненулевым значением.');
     reg1:= false;
   end;
ind2:= 0;
for i:= n downto 1 do  // Поиск индекса последнего элемента  с положительным значением.
 if a[i] > 0 then
    begin
    ind2:= i;
    writeln('Индекс последнего элемента с положительным значением: ',ind2);
    break;
    end;
reg2:= true;
if ind2 = 0 then      // Проверка поиска элемента по условиям задачи.
   begin
     writeln('В массиве нет элементов с положительным значением.');
     reg2:= false;
   end;
if reg1 and reg2 then
   begin
    buf:= a[ind1];     // Обмен значениями между найденными элементами.
    a[ind1]:= a[ind2];
    a[ind2]:= buf;
    writeln('Измененный массив:');  // Вывод измененного массива на экран.
    for i:= 1 to n do
      write(a[i]:3);
    Writeln;
   end
else
  writeln('Обмен значениями элементов осуществить невозможно. ');
Readln;
end.

Program Exchange;
Var
    A: Array [1..50] of Integer;
    i,f,l,n,t: Integer;
    b, b1, b2: Boolean;
 
Begin
  Randomize;
  Write ('Введите размерность массива: ');
  Read (n);
  WriteLn ('Исходный массив:');
    For i:= 1 to n do
      begin
        A [i]:= Random (n) - Random (n);
        Write (A [i]:3)
      end;
  WriteLn;
  b:= True;
  b1:= False;
  b2:= False;
  i:= 0;
    While (b and (i < n)) do
      begin
        i:= i + 1;
          IF not b1 and (A [i] <> 0) then
            begin
              f:= i;
              b1:= True
            end;
          IF not b2 and (A [n + 1 - i] > 0) then
            begin
              l:= n + 1 - i;
              b2:= True
            end;
          IF b1 and b2 then b:= False
      end;
    IF b1 then WriteLn ('Индекс первого элемента с ненулевым значением: ', f)
      Else WriteLn ('В массиве нет элементов с ненулевым значением');
    IF b2 then WriteLn ('Индекс последнего элемента с положительным значением: ', l)
      Else WriteLn ('В массиве нет элементов с положительным значением');
    IF b1 and b2 then
      begin
        t:= A [f];
        A [f]:= A [l];
        A [l]:= t;
        WriteLn ('Измененный массив:');
          For i:= 1 to n do Write (A [i]:3)
      end
    Else WriteLn ('Обмен значениями элементов осуществить невозможно');
  ReadLn
End.

const
  m = 100;
 
var
  a: array[1..m] of integer;
  i, n, last_neg, first_no_zero, tmp: integer;
 
begin
  randomize;
  repeat
    write('n in [1..', m, '];  n = ');
    readln(n)
  until n in [1..m];
  writeln('Source array A:');
  for i := 1 to n do
    begin
      a[i] := -99 + random(199);
      write(a[i]:4);
      if (first_no_zero = 0) and (a[i] <> 0) then first_no_zero := i;
      if a[i] < 0 then last_neg := i
    end;
  writeln;
  if last_neg > 0
    then writeln('Last negative: A[', last_neg, '] = ', a[last_neg])
    else writeln('Negative element not found');
  if first_no_zero > 0
    then writeln('First no zero: A[', first_no_zero, '] = ', a[first_no_zero])
    else writeln('No zero element not found');
  if (last_neg > 0) and (first_no_zero > 0)
    then begin
      tmp := a[last_neg];
      a[last_neg] := a[first_no_zero];
      a[first_no_zero] := tmp;
      writeln('Result array:');
      for i := 1 to n do write(a[i]:4);
      writeln
    end
    else writeln('Exchange not possible');
  readln
end.

program example (com1, lpt1);

program example;

program example (input, output);

program example (con, con);

program example (keyb, crt);