На Паскале. Задан массив из N действительных чисел(N может быть задано не более 25). Отрицательные числа в заданном массиве

program zz1;

const n = 15; // задаем количество чисел в массиве

var  i, k, j:integer; // задаем переменные целого типа

b:real;

m, v:array [1..n] of real;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(51)-25+random;

for i:=1 to n do  // выводим исходный массив на экран

write(m[i]:8:2);

writeln;    // переходим на новую строку для вывода ответа

for i:=1 to n do

if m[i] < 0 then begin k:=k+1;v[k]:=m[i];end;

for i := 1 to k-1 do

       for j := 1 to k-i do

           if v[j] < v[j+1] then begin

               b := v[j];

               v[j] := v[j+1];

               v[j+1] := b;

           end;

k:=0;

for i:=1 to n do

if m[i] < 0 then begin k:=k+1;m[i]:=v[k];end;            

for i:=1 to n do  // выводим полученный массив на экран

write(m[i]:8:2);

end.