Giúp mik vs ạ :cho dãy số nguyên n phần tử (n=<100). a,tính tổng các số âm trong dãy số nguyên b,Nhập k , tìm và xóa đi phần tử đầu tiên trong dãy bằng k

uses crt;
var n:byte;
    a:array[1..100] of integer;
    i,k,S:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Nhap k: '); readln(k);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(a[i]);
      if a[i]<0 then S:=S+a[i];
      if k=a[i] then a[i]:=0;
   end;
   write('Tong cac so am la: ',S);
end.

program bai_giai;
uses crt;
var A:array[1..100] of integer;
    n,i,k,t,d,j:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': ');  readln(A[i]);
            if A[i]<0 then t:=t+A[i];
        end;
    writeln('a) Tong cac so am la: ',t);
    write('Nhap k: ');  readln(k);
    d:=0;
    for i:=1 to n do
        if A[i]=k then
            begin
                d:=d+1;
                for j:=i to n-1 do
                    A[j]:=A[j+1];
                break;
            end;
    if d=0 then write('Khong tim thay ',k,' trong day')
    else for i:=1 to n-1 do write(A[i],' ');
    readln;
end.