Сформировать массив С, который содержит элементы А по модулю равные элементам В. - Pascal

Формулировка задачи:

. Даны два одномерных массива чисел А и В. Сформировать из них массив С, который содержит элементы А по модулю равные некоторым элементам В. Блин месяц парюсь...Знаю что через abs и тд...С трудом Паскаль понимаю просто,само построение алгоритма и тд...помогите кто чем может плз!)

Решение задачи: «Сформировать массив С, который содержит элементы А по модулю равные элементам В.»

Листинг программы

program ty;
 type
  mn=array[1..100] of integer;
 var
  a,b,c:mn;
  n,i:integer;
procedure pere(x:integer;a,b:mn);
 var 
  i,j,k:integer;
  c:array[1..100] of integer;
 
begin
k:=0;
for i:=1 to x do
for j:=1 to x do
if abs(a[i])=abs(b[j]) then 
begin 
inc(k);
c[k]:=a[i];
end;
writeln('массив');
for i:=1 to k do begin
  write(c[i],' ');
  end;
end;
 
 
 
begin
randomize;
readln(n);
writeln('массив 1');
 for i:=1 to n do begin
  a[i]:=random(10)-1;
  write(a[i],' ');
 end;
 readln;
 writeln('массив 2');
 for i:=1 to n do begin
  b[i]:=random(10)-1;
  write(b[i],' ');
 end;
 readln;
 pere(n,a,b);
 end.

Объяснение кода листинга программы

Объявлены типы данных: mn - массив целых чисел размером от 1 до 100, переменные a, b, c, n, i - целые числа.
Создана процедура pere, которая принимает целое число x и два массива a и b в качестве параметров.
В процедуре pere объявлены дополнительные переменные i, j, k, c.
В первой итерации внешнего цикла создается новый массив c размером k.
Во второй итерации внешнего цикла происходит проверка на равенство по модулю элементов a и b и при необходимости элемент a копируется в массив c.
Внутренний цикл завершается, когда найдены все одинаковые элементы.
Внутренний цикл завершается, когда достигнуто условие выхода из внешнего цикла.
Выводится массив c.
В основной части программы считывается число n, которое является размером массива a и b.
В основной части программы считываются элементы массива a и b.
Вызывается процедура pere с параметрами n, a, b.
Программа завершается.