В трех целочисленных массивах А(40), В(30), С(60) найти все элементы кратные 3 - Pascal

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

В трех целочисленных массивах А(40), В(30), С(60) найти все элементы кратные 3. Поиск элементов одномерного массива, кратных некоторому числу Р, оформить в виде функции.(важно).

Решение задачи: «В трех целочисленных массивах А(40), В(30), С(60) найти все элементы кратные 3»

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

type
    TArray = Array[Byte] Of ShortInt;
procedure GenerateArray(var ar: TArray; var n: Byte);
var
    i: Byte;
begin
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    for i := 0 to n - 1 do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
    end;
    WriteLn;
end;
function Multip(const ar: TArray; const n: Byte; const val: ShortInt): Boolean;
var
    i: Byte;
    Result: Boolean;
begin
    Result := False;
    for i := 0 to n - 1 do
        if (ar[i] mod val = 0)
        then
        begin
            Result := True;
            Write(ar[i]:4);
        end;
    Multip := Result;
end;
var
    a, b, c: TArray;
    na, nb, nc: Byte;
begin
    Randomize();
    Write('A:'); GenerateArray(a, na);
    Write('B:'); GenerateArray(b, nb);
    Write('C:'); GenerateArray(c, nc);
    Write('3 in A:');
    if Not(Multip(a, na, 3))
    then
        Write('No one!');
    WriteLn;
    Write('3 in B:');
    if Not(Multip(b, nb, 3))
    then
        Write('No one!');
    WriteLn;
    Write('3 in C:');
    if Not(Multip(c, nc, 3))
    then
        Write('No one!');
end.

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

Объявляется пользовательский тип данных TArray как массив байтов.
Объявляется процедура GenerateArray, которая генерирует массив случайных чисел.
Внутри процедуры вводится значение переменной n.
Генерируется массив случайных чисел, каждое из которых записывается в соответствующую ячейку массива, после чего все числа выводятся на экран.
Объявляется функция Multip для поиска элементов, которые кратны числу val.
Внутри функции проверяется, является ли элемент кратным числу val, если да, то число выводится на экран.
Далее объявляются три массива a, b, c и три переменные для их размеров na, nb, nc.
Для каждого массива генерируется массив случайных чисел и выводится на экран.
Выполняется поиск элементов, кратных числу 3, в каждом из трех массивов. Если таковые не найдены, то выводится сообщение No one!.