Mình làm hơi vội nên có gì sai thì bạn thông cảm nha. =))))

uses crt;
var a: array[-500..500] of integer;
    i,n,cs:byte;
begin
clrscr;
write('Nhap so cac so: '); readln(n);
cs:=0;
for i:=1 to n do
 begin
  write('a[',i,']:'); readln(a[i]);
 end;
for i:=1 to n do
 begin
  cs:=cs+1;
  if a[i]<0 then
   begin
    write('Phan tu am dau tien o vi tri: ',cs);
    break;
   end;
 end;
  if a[i]>=0 then write('-1');
readln;
end.

program oken;
uses crt;
var a: array [1..10000] of longint;
    i,n,vitri:longint;
begin
        clrscr;
        write('Nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                        write('A[',i,']: '); readln(a[i]);
                end;
        for i:=n downto 1 do
                if a[i]<0 then vitri:=i;
        if vitri<>0 then
                writeln('Vi tri: ',vitri)
        else
                writeln('Vi tri: -1');
        readln;
end.