Массив, Одномерный массив Опции

[Wizzy]

Здравствуйте, появились проблемы, при решении данной задачи:
Дан массив х вещественных чисел. Получить упорядоченный по невозрастанию массив, состоящий из чисел данного массива, находящихся между предпоследним и последним отрицательным членом. (Проверить массив на наличие элементов между ними)

program mass;

var
  i, j, k, n, d: integer;
  x: real;
  a, s: array [1..10] of real;

begin
  writeln('Программа выводит элементы массива, расположенные между предпоследним и последним отрицательными числами');
  writeln('Введите количество элементов массива');
  read(n);
  k := 0;
  j := 0;  
  writeln('Введите элементы массива');
  for i := 1 to n do  {Ввод массива}
	read(s[i]);
  
  while k <> 2 do {Нахождение двух отрицательных чисел}
  begin
	for i := 1 to n do {Проверяем массив}
	begin
	  if s[i] < 0 {Если элемент массива отрицателен}
	  then
	  begin
		a[i] := s[i]; {присваиваем отрицательные числа массива s массива a}
		k := k + 1; {счётчит отрицательных элементов массива}
	  end;
	end;
  end;
  



  for i := 1 to n - 1 do {упорядочивание массива по убыванию}
	for j := i + 1 to n do
	  if s[i] < s[j] then
	  begin
		x := s[i];
		s[i] := s[j];
		s[j] := x;
	  end;
  
  for i := 1 to n do
	write(s[i], ' ');  {Вывод массива}
  writeln;
end.

Прошу помощи с поиском предпоследнего и поледнего отрицательного числа и как можно организовать вывод конечного массива, просто если я записываю отрицательные числа в другой массив, на месте положительных получаются нули.

[Wizzy]

Ну примерно так, массив развернул, нашёл последний и предпоследний элементы

Код

program mass;

const
  max = 10;

var
  i, j, k, n, d: integer;
  x, z: real;
  a, s, obrat: array [1..max] of real;

begin
  writeln('Программа выводит элементы массива, расположенные между предпоследним и последним отрицательными числами');
  writeln('Введите количество элементов массива');
  read(n);
  k := 0;
  j := 0;  
  writeln('Введите элементы массива');
  for i := 1 to n do  {Ввод массива}
    read(s[i]);
  
  for i := 1 to max do
    obrat[max - i + 1] := s[i];
  
  begin
    for i := 1 to max do {Проверяем массив}
    begin
      if obrat[i] < 0 {Если элемент массива отрицателен}
      then
      begin
        a[i] := obrat[i]; {присваиваем отрицательные числа массива s массива a}
        k := k + 1; {счётчит отрицательных элементов массива}
        if k = 2 then break;
      end;
    end;
  end;  
  
  for i := 1 to max - 1 do {упорядочивание массива по убыванию}
    for j := i + 1 to max do
      if a[i] < a[j] then
      begin
        x := a[i];
        a[i] := a[j];
        a[j] := x;
      end;
  
  for i := 1 to max do
    write(a[i], ' ');  {Вывод массива}
  writeln;
end.

подскажите, как дальше поступать?