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

Program z;Var mas:array[1..10] of integer;       i: integer;Writeln('Введите массив: ');for i:=1 to 10 doReadln(mas[i])for i:=1 to 10 doif(mas[i]=5) thenWriteln('Элемент массива под номером',i,' равен пяти');end;Вот задача, по идее ошибок быть не должно.