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

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.