Решить в паскале. дан массив а(9). сформулировать новый массив в, который получается из а путем записи после каждого отрицательного элемента числа 0. массивы а и в распечатать.

Program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
var a,b:array [1..9] of Integer; i:integer;
begin 
Randomize; 
for i:=1 to 9 do 
a[i]:=Random(10)-5;
  for i:=1 to 9 do 
 write(a[i]:3);
  writeln;
for i:=1 to 9 do 
 b[i]:=a[i];
for i:=1 to 9 do
 if b[i]<0 then
  b[i+1]:=0;
  for i:=1 to 9 do 
write(b[i]:3);
 Readln;
end.