массивы (паскаль)

[lilia.n]

пожалуйта помогите,кто сможет, решить задачу. спасибо зараннее.

Дан массив В (15) вещественных чисел. Переписать в массив С отрицательные элементы массива В и распечатать его. Если отрицательных элементов в массиве В нет, то распечатать сообщение об этом.

[ROMA2PVT]

uses crt;
Const
 n=6;
Type
 a=array[1..n] of integer;
var
    i,l,j,k:integer;
    n1:integer;
    min,s,x,pos:integer;
    c:a;
    m:a;
    begin
clrscr;
randomize;
writeln('Исходный массив K: ');
for i:=1 to n do
    begin
     c[i]:=random(10)-5;
     write(c[i],' ');
 end;
   writeln;
   k:=0;
for i:=1 to n do
if (c[i]<0) then
begin
inc(k);
m[k]:=c[i];
end;
if k=0 then writeln('В массиве нет отрицательных элементов!!!');
writeln;
for i:=1 to k do
begin
write(m[i],' ');
end;
end.