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

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

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

[sheka]

Э, не)
А если в массиве 1 отрицательное число? А если их вообще нет?
Есть 2 способа решения этой задачи: проход с начала массива и до конца с перезаписью позиций последнего-предпоследнего элементов, и другой, проход с конца массива и в сторону начала массива и с помощью Break.
2й более предпочтительный.
И только потом, анализируя присутствие, как минимум последнего-предпоследнего отрицательных элементов, можно заполнять новый массив. (хотя можно поизвращаться и попытаться это сделать все сразу, но это уже как сказать что лучше..).