Дан массив целых чисел из 8 элементов Указать те их них, у которых остаток от деления на M равен 1.(Pascal)

Program pr;uses crt;varmas: array[1..8] of integer; M,i:integer;Beginwriteln('Введите M');readln(M);writeln('Введите массив');for i:=1 to 8 do   readln(mas[i]);writeln;{вывод необходимых элементов}for i:=1 to 8 do     if mas[i] mod M = 1            then writeln('mas['   , i ,    ']=',    mas[i]);readln;end.