Помогите, нужно написать на языке Паскаль: известно что в массиве имеются элементы равные 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;

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