одномерные массивы(pascal)

[s4egol]

program oaip23;
uses
crt;
var
a,b:array[1..100] of integer;
kol1,kol2,i:integer;
begin
writeln('колличество элементов первого массива:');
readln(kol1);
for i:= 1 to kol1 do read(a[i]);
begin
writeln('колличество элементов второго массива:');
readln(kol2);
for i:=1 to kol2 do read(b[i]);
end;
end.


это кусок кода выводящий два любых каких то массива...мне нужно завершить этот код тем чтобы первый массив делящийся на второй массив выводил третий новый массив...но я не знаю как это сделать...

[whatever]

Сообщение от s4egol

program oaip23;
uses
    crt;
var
   a,b:array[1..100] of integer;
   kol1,kol2,i:integer;
begin
  writeln('колличество элементов первого массива:');
  readln(kol1);
  for i:= 1 to kol1 do read(a[i]);
    begin
        writeln('колличество элементов второго массива:');
        readln(kol2);
        for i:=1 to kol2 do read(b[i]);
    end;
end.

это кусок кода выводящий два любых каких то массива...мне нужно завершить этот код тем чтобы первый массив делящийся на второй массив выводил третий новый массив...но я не знаю как это сделать...

Во-первых, код оформляется кнопкой '#'
Во-вторых, не выводящий, а вводящий
В -третьих, что значит

первый массив делящийся на второй массив выводил третий новый массив

? Поэлементно не получится, так как их количество может быть разным.
В-четвертых, знаки препинания категорически приветствуются.