Массив_сортировка по убыванию

[druger]

Вот прога: Задан массив из N действительных чисел.Создать новый массив, в котором отрицательные элементы исходного массива упорядочены по убыванию их значений.Взаимное расположение отриц и положит чисел сохранить
Она у меня не работает Помогите найти ошибку. Или предложите другой вариант решения

program p6;
uses crt;
const n=6;
type massive=array [1..n] of integer;
procedure novmas (var a:massive; b:massive);
var i,j,x:integer;
begin
for i:=1 to n-1 do begin
for j:=1 to n-1-i do begin
if (a[j]<a[j+1]) and (a[i]<0)
then
 begin
 x:=a[j];
 a[j]:=a[j+1];
 a[j+1]:=x;
 end;
                   end;
                     end;
b[j]:=a[j];
end;
procedure input (var a:massive);
var i:integer;
begin
writeln ('vvedite'  ,n,'  elementov massiva');
for i:=1 to n do
read(a[i]);
end;
procedure output (var b:massive);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
write(b[j], '  ');
end;
var a,b:massive;
begin
clrscr;
input(a);
output(b);
readkey;
end.

[9i.]

Сообщение от druger

Вот прога: Задан массив из N действительных чисел.Создать новый массив, в котором отрицательные элементы исходного массива упорядочены по убыванию из значений.

каких значений то?

[druger]

вводимых с клавиатуры

[Zer0]

а не пробовали между input и output написать novmas(a,b) ?
Это раз

Во вторых, в процедуре output совсем не нужен цикл с i
В третьих - в output не нужно указывать var в параметрах (просто output(b:massive))