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

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.