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

Program index;Uses crt;Var A: array [1..10] of integer;i,m: integer;Begin clrscr;Writeln ('Введите элементы массива');for i:=1 to 10 doread (a[i]);Writeln ('Введите число m');Readln (m);for i:=1 to 10 dobeginif a[i]=m thenWrite (i,' ');end;readln;readkey;end.