Pascal: Составить программу генерирования массива B, состящего из отрицательных элементов массива a

[mrRastom]

Здравствуйте.
Дана следующая задача: "Составить программу генерирования массива b, состоящего исключительно из отрицательных элементов одномерного массива a n-ого вещественных чисел."

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

uses crt;
Var a,b:array[1..100] of real;
       i,n,k,j:integer;
begin
ClrScr;
         write ('Задайте размерность массива n= ');
         readln(n);
         writeln ('Введите элементы массива: ')
         for i:=1 to n do
              begin
                   write ('a(',i,')= ');
                   readln (a[i]);
              end;
         k:=0;
         for i:=1 to n do
              if a[i] <0 then
                       begin
                              k:=k+1;
                              b[k]:=a[i];
                       end;
              if k=0 then write ('Таких элементов нет')
              else
              for j:=1 to k do write (b[k],' ');
readln;
End.

P.S. разумеется можете необращая внимания на мой код, составить свой.

[Niro]

За такие ошибки надо....
Замените

for j:=1 to k do write (b[k],' ');

на

  for j:=1 to k do write (b[j],' ');

А то я сам и так и сяк на код этот смотрел

[mrRastom]

Блин, вот я...
Спасибо большое.