программа для создания и обработки массива

[david-95]

Нужна помощь в написании программы для создания и обработки массива
вот условие:
Дана последовательность из n вещественных чисел.Найти номер последнего вхождения данного числа в последовательность,или вывести сообщение,что такого числа нет.

Буду очень признателен за помощь!

[VIK_aka_TOR]

index := 0;
for i:= 1 to n do
  if mas[i] = chislo then
     index := i;
if index = 0 then
  writeln('не входит')
else
  writeln('последнее вхождение ',index);