поменять местами первый отрицательный и последний положительный элементы массива

cгенерировать массив А из 15 случайных чисел в диапозоне от -100 до 100.
вывести результат на экран. поменять местами первый отрицательный и последний положительный элементы массива. вывести езультат на экран. учесть возможность отсутствия в массиве отрицательных и положительных элементов

По порядку

1. генерировать массив A
   

   for i:=1 to 15 do a[i]:=random(200)-100;

   
   
2. найти первый отрицательный
   

   first_minus:=0;
   for i:=1 to 15 do begin
   if a[i] < 0 then begin
   first_minus:=i;
   break;
   end;
   end;

   
   
3. убедиться что отрицательное число встретилось
   

   if first_minus = 0 then writeln('нет отрицательного числа в массиве!');

   
   
4. найди последний положительный
   

   last_plus:=0;
   for i:=15 downto 1 do begin
   if a[i] > 0 then begin
   last_plus:=i;
   break;
   end;
   end;

   
   
5. убедиться что положительное число встретилось
   

   if last_plus = 0 then writeln('нет положительного числа в массиве!');

   
   
6. поменять местами найденые элементы
   

   temp:=a[first_minus];
   a[first_minus]:=a[last_plus];
   a[last_plus]:=temp;

   
   

-----

const
   N = 10;

var
   a: array [1..N] of integer;
   i: integer;
   first_minus: integer;
   last_plus: integer;
   temp: integer;

begin
   {init random}
   for i:=1 to N do a[i]:=random(100)-50;

   write('  начальные данные: ');
   for i:=1 to N do write(a[i]:4);
   writeln;

   first_minus := -1;
   for i:=1 to N do begin
      if a[i] < 0 then begin
         first_minus:=i;
         break;
      end;
   end;
   
   if first_minus = -1 then begin
      writeln('нет отрицательных элементов');
      exit;
   end;
   
   last_plus := -1;
   for i:=N downto 1 do begin
      if (a[i] > 0) then begin
         last_plus:=i;
         break;
      end;
   end;
   
   if last_plus = -1 then begin
      writeln('нет положительных элементов');
      exit;
   end;

   temp:=a[first_minus];
   a[first_minus]:=a[last_plus];
   a[last_plus]:=temp;

   write('после перестановки: ');
   for i:=1 to N do write(a[i]:4);
   writeln;
end.

вывод

начальные данные:   29   3  28  -7  -3  40 -44  46   6 -14
после перестановки:   29   3  28   6  -3  40 -44  46  -7 -14