Задача Pascal на массив (нужна помощь)

[STIG_E70]

Задача такая: Дан Массив С(20). Нужно заменить его другим Массивом, при этом if C[i]<0 then тогда произвести замену типа С[i]=B[i] Заранее благодарен...

[OLEG'arh]

var
 b,c:array[1..20] of integer;
 i:integer;
begin
{........
заполяешь массивы B и C
........}
For i:=1 to 20 do
  begin
     if c[i]<0 then c[i]:=b[i]
  end;
end.

[STIG_E70]

Мне и нужно заполнить Массивы B и С Начало и концовку, я знаю, я не догоняю как их заполнить, если можешь напиши СПАСИБО за помощь )))

[OLEG'arh]

Uses Crt;
var
b,c:array[1..20] of integer;
i:integer;
begin
ClrScr;
For i:=1 to 20 do
b[i]:=random(40)-20;
c:=b;
For i:=1 to 20 do
begin
if c[i]<0 then writeln(b[i]);
end;
readln;
end.

[STIG_E70]

Огромное спасибо OLEG'arh все сделал, немного изменил твою.... вот что получилось, вроде все работает

Условие: Из элементов массива С(20) сформировать новый массив, содержащий только отрицательные элементы.

Program Mas;
Const N=20
Var i,m:integer;
C:array [1..N] of integer;
CN:array[1..N] of integer;
Begin
Writeln('Input Mas C');
For i:=1 to N do
readln(C[i]);
m:=0;
For i:=1 to N do
If C[i]<0 then
Begin
m:=m+1; CN[m]:=C[i];
end;
Writeln('Output Mas CN');
For i:=1 to m do
Write(CN[i],' ');
readln;
End.