Удалить в массиве предпоследний неотрицательный элемент

pascal abc

Const n=20;

var i, k, m: integer;

a: array[1 ... n] of integer;

begin

randomize;

writeln ('исходный массив:') ;

for i:=1 to n do

begin

a[i]:=random (-10,10) ;

write (a[i],' ') ;

end;

writeln;

k:=0; m:=0;

for i:=n downto 1 do

begin

if a[i]>=0 then k:=k+1;

if k=2 then

begin

m:=i; break;

end;

end;

if m>0 then

begin

for i:=m to n-1 do a[i]:=a[i+1];

writeln ('новый массив:') ;

for i:=1 to n-1 do write (a[i],' ') ;

end

else writeln ('нет такого элемента') ;

end.

исходный массив:

-9 - 3 8 - 10 7 7 6 10 4 - 2 - 10 7 - 1 - 3 10 - 4 2 10 7 - 5

новый массив:

-9 - 3 8 - 10 7 7 6 10 4 - 2 - 10 7 - 1 - 3 10 - 4 2 7 - 5