Даю 70 поинтов!Пожалуйста посчитайте с информатикой! Найти номер последнего отрицательного элемента в массиве X. Язык Паскаль.

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