Сделайте пожалуйста программу на Паскале. Заранее спасибо!!!!

program N88590120;

function ReadInt(Min, Max: smallint): smallint;
var
  x: smallint;
  e: boolean;
begin
  repeat
    try
      readln(x);
      e := (x > Max) or (x < Min)
    except
      e := true;
    end;
    if e then
      write('Ошибка! Введите целое число от ', Min, ' до ', Max, ': ')
  until not e;
  ReadInt := x
end;

const
  k: word = 0;
  x: smallint = -32768;
  i: word = 1;
var
  n: smallint;
  e: integer;
begin
  write('Введите число n: ');
  n := ReadInt(x, 32767);
  writeln('Вводите числа возрастающей последовательности: ');
  while x < 10000 do
  begin
    write('> ');
    x := ReadInt(x + 1, 10000);
    if (k = 0) and (x > n) then
      k := i;
    inc(i)
  end;
  if k > 0 then
    writeln('Номер 1-го числа, большего ', n, ': ', k)
  else
    writeln('В последовательности нет чисел, больших ', n);
  writeln(#13#10'Для завершения работы нажмите <Еntеr>...');
  readln
end.

Могу решить, но за вознаграждение.
Если заинтересован, пиши на почту.

Тут по-моему надо чере массив, потом вставить определенное число, а потом через ветвление по-моему... Я знаю кк решается а написать не смогу..