Определить есть ли пара соседних элементов с суммой равной заданному числу. Составить на Паскале программу (массивы)

Предыдущий
вопрос Следующий
вопрос

program SumOfTwoNeighbours;

const
N = 5;

var
arr: array[1..N] of integer;
num: integer;
i: integer;

function CheckSum(num: integer; arr: array of integer): boolean;
var
i: integer;
begin
for i := 1 to Length(arr) - 1 do
begin
if (arr[i] + arr[i + 1] = num) then
begin
CheckSum := true;
Exit;
end;
end;
CheckSum := false;
end;

begin
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to N do
begin
write('arr[', i, '] = ');
readln(arr[i]);
end;

// Ввод числа
writeln('Введите число:');
readln(num);

// Проверка наличия пары соседних элементов с заданной суммой
if CheckSum(num, arr) then
writeln('Есть пара соседних элементов с суммой ', num)
else
writeln('Нет пары соседних элементов с суммой ', num);
end.