Составить программу удаления последнего отрицательного элемента одномерного массива A(N)

var a,b: array [1..100] of integer;
i,n,k,s:integer;
begin
write('N= '); read(n);
for i:=1 to n do read(a[i]);
s:=0;k:=0;
for i:=1 to n do
if a[i]<0 then s:=s+1;
writeln('s=',s);
 
while s>=1 do
begin
for i:=1 to n do
if a[i]<0 then begin k:=k+1; b[k]:=a[i]; s:=s-1; end
else begin k:=k+1; b[k]:=a[i]; end;
end;
 
for i:=1 to k do write(b[k],' ');
end.

var
a: array [1..100] of integer;
i,n,k:integer;
begin
randomize;
repeat
  write('N= ');
  read(n);
until n in[1..100];
writeln('Isxodniy massiv:');
for i:=1 to n do
  begin
    a[i]:=-50+random(101);
    write(a[i]:4);
  end;
writeln;
k:=0;
for i:=1 to n do
  if a[i]<0 then
        k:=i;
  if k>0 then
    begin
      for i:=k to n-1 do
        a[i]:=a[i+1];
        n:=n-1;
      if n>0 then
        begin
          writeln('Poluchenniy massiv:');
          for i:=1 to n do
          write(a[i]:4);
        end
      else
        write('V massive net elementov posle udaleniya');
    end
  else
    write('V massive net otritsatelnix elementov');
readln;
end.

var a,b:array [1..100] of integer;
i,n,k,t,s:integer;
 
begin
s:=0; k:=0; t:=0;
write('N= '); read(n);
for i:=1 to n do read(a[i]);
 
for i:=1 to n do
if a[i]<0 then begin k:=a[i]; t:=i; end;
writeln('k=',k); writeln('t=',t); for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n do
if (a[i]<>k) or (i<>t) then
begin s:=s+1; b[s]:=a[i]; end;
for i:=1 to s do write(b[i],' ')
end.