Нужно написать на языке паскаль: известно что в массиве имеются элементы равные 5 определить номер первого из них

Program z;
Var mas:array[1..10] of integer;
       i: integer;
Writeln('Введите массив: ');
for i:=1 to 10 do
Readln(mas[i])
for i:=1 to 10 do
if(mas[i]=5) then
Writeln('Элемент массива под номером',i,' равен пяти');
end;

Вот задача, по идее ошибок быть не должно.