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

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.