Дан одномерный целочисленный массив размерностью 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 (абс(b[i]) gt; 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.