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

const n=10;var x: array[1..n] of integer;   i,m: integer;beginwriteln('Исходный массив:');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]=45x[2]=81x[3]=-65x[4]=20x[5]=38x[6]=46x[7]=-73x[8]=54x[9]=92x[10]=12m = 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.