Дан массив вывести на экран индексы тех элементов значения которых равны числу м

Program index;

Uses crt;

Var A: array [1 ... 10] of integer;

i, m: integer;

Begin clrscr;

Writeln ('Введите элементы массива') ;

for i:=1 to 10 do

read (a[i]) ;

Writeln ('Введите число m') ;

Readln (m) ;

for i:=1 to 10 do

begin

if a[i]=m then

Write (i,' ') ;

end;

readln;

readkey;

end.