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

[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.

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