Цикл с постусловием

[vika030592]

Дана непустая и упорядоченная по возрастанию последовательность целых чисел, оканчивающаяся числом 10000. Определить порядковый номер первого числа, большего заданного n. Если таких чисел последовательности нет, то на экран должно быть выведено соответствующее сообщение.

[vika030592]

помогите кто нибудь

[Pro_RocK]

uses crt;
var a:array[1..100]of integer;
i,m,n:integer;
begin i:=0;
repeat
      i:=i+1;
      read(a[i]);
until a[i]=10000;m:=i;
write('Input N=');read(n);
writeln;
for i:=1 to m do
if a[i]=n then begin writeln(i);break;end;
if i=m then writeln('It is not found');
readln;
end.