Сравнить 2 массива, но не поэлементно, а целиком - Turbo Pascal

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

Можно ли сравнить 2 массива, но не почленно, а целиком?

Решение задачи: «Сравнить 2 массива, но не поэлементно, а целиком»

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

function IsEqual(const a, b: array of Integer; n: Integer): Boolean;
var i: Integer;
begin
  IsEqual:=False;
  for i:=0 to n do if a[i]<>b[i] then Exit;
  IsEqual:=True;
end;

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

В данном коде описывается функция IsEqual, которая принимает два аргумента: a и b - оба являются массивами целых чисел, а также один дополнительный аргумент n - количество элементов в каждом из массивов. Функция использует цикл for, который выполняется от 0 до n включительно. Внутри цикла происходит сравнение элементов массивов a и b с помощью условного оператора if. Если элементы не равны, то функция завершается с помощью оператора Exit. Если все элементы равны, то функция переводит значение IsEqual в True. Таким образом, данная функция сравнивает два массива целиком, а не поэлементно.