Массив содержит рост 10 учеников 9 класса. проверить есть ли в классе хотя бы один ученик роста 172 см и вывести его номер по списку

Program one;
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]=172 then write i;
end;