Дан одномерный целочисленный массив размерностью N. Сформировать новый массив из элементов исходного, кратных заданному числу а и больших по модулю их индекса. Если такие элементы отсутствуют, то выдать об этом сообщение. паскаль

const n = 10; var b: array[1..n] of integer; c: array[1..n] of integer; i, a, k: integer; begin //считываем массив b for i:=1 to n do   readln(b[i]); //вводим a readln(a); k:=0; for i:=1 to n do //если элемент кратен А и по модулю больше I то   if (b[i] mod a = 0) and (abs(b[i]) > i) then   begin //увеличиваем k на 1 и присваиваем c[k] a[i]   inc(k);   c[k] := b[i];   end; if k = 0 then   writeln('Таких элементов нет') else   for i:=1 to k do     writeln(c[k]); end.