Const n=10;
var x: array[1..n] of integer; 
  i,m: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do begin
 write('x[',i,']=');
 readln(x[i]);
 end;
writeln;
m:=0; i:=n;
while (i>=1)and(x[i]>=0) do
 begin
 i:=i-1;
 m:=i;
 end;
writeln('m = ',m);
end.

Пример:
Исходный массив:
x[1]=45
x[2]=81
x[3]=-65
x[4]=20
x[5]=38
x[6]=46
x[7]=-73
x[8]=54
x[9]=92
x[10]=12
m = 7

Var i,m,n:integer;
x:array[1..1000] of integer;
begin
 write('Введите размер массива: ');readln(n);
 write('Введите элементы массива: ');
 for i:=1 to n do
  Read(x[i]);
 m:=0;
 i:=n;
 while (i>=1) and (x[i]>0) do begin
  i:=i-1;
  m:=i;
 end;
 writeln('Номер элемента:',m);
end.