одномерные массивы, Не могу разобраться с задачей Опции

[Eichhorn]

Дан массив размера N. После каждого отрицательного элемента вставить элемент с нулевым значением.

Вот мой текст программы:

const
n=10;
var
a:array[1..n*2] of integer;
i,s,t,j,sc:integer;


begin
t:=0;
sc:=0;
randomize;

for i:=1 to n do
        begin
        a[i]:=random(101)-50;
        writeln(a[i]);
        readln;
        end;

for i:=1 to n do
begin
if a[i]<0 then
        begin
        sc:=sc+1;
        s:=i;
        for j:=n+sc downto s-1 do
        a[j]:=a[j-1];
        a[s]:=t;
        end;
end;
for i:=1 to 2*n do
writeln(a[i]:6);
readln;
end.

В лучшем случае эта программа рандомно заполняет массив нулями, заменяя также отрицательные элементв на нули. Делала по задаче из лекции, которую нам давали. Вот она:

Type
	mass=array[1..21] of real;
Var
	a: mass;
	i, j , i_max : integer;
	t, max : real;
Begin
randomize;
writeln (‘ Массив A ‘);
for i:=1 to 20 do 
	begin
	a[ i ]:=(random(201)-80)/(random(100)+1);
	write (a[ i ]:6:2);
	end;
readln (t);
max:=a[1];
i_max:=1;
for i:=2 to 20 do 
	if a[ i ]>max then
begin
	max:=a[ i ];
	i_max:=i
	end;
for j:=21 downto i_max-1 do		
	a[ j ]=a[ j-1 ];
a[i_max]=t;
writeln (‘ Массив A c включенным 
элементом t ‘);
for i:=1 to 21 do
	 write (a[ i ]:6:2)
End.

Здесь находили в массиве элемент с максимальным значением и после него ставили число t.