Дружественные числа - Pascal ABC

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

помогите, пожалуйста, совсем не получается написать программу, т.к. новичок, плохо разбираюсь, а сдать нужно Дружественные числа -– это два натуральных числа, таких, что сумма всех делителей одного числа (меньших самого этого числа) равна другому числу, и наоборот. Напишите программу, которая проверяет пару чисел на "дружественность". Используйте функцию, которая вычисляет сумму делителей числа. Входные данные Входная строка содержит два натуральных числа. Выходные данные Программа должна вывести слово 'YES', если полученные числа – дружественные, и слово 'NO' в противном случае.

Решение задачи: «Дружественные числа»

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

function dividers(x: integer): integer;
var s, i: integer;
begin
  s := 0;
  for i := 1 to x - 1 do
    if x mod i = 0 then
      s := s + i;
  dividers := s
end;
 
var 
  a, b: integer;
  
begin
  Write('Введите два натуральных числа: '); Read(a, b);
  if (dividers(a) = b) and (dividers(b) = a) then
    WriteLn('YES')
  else
    WriteLn('NO');
  ReadLn
end.

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

В функции dividers переменной s присваивается значение 0, а переменной i - значение 1. Затем, в цикле for происходит проверка, делится ли число x на i без остатка. Если это так, то к переменной s прибавляется значение i.
В основной части программы, переменным a и b присваиваются значения, введенные пользователем. Затем, проверяется равенство двух чисел, полученных в результате деления dividers(a) и dividers(b). Если они равны, то выводится сообщение YES, иначе - NO.
Программа просит пользователя ввести два натуральных числа, затем проверяет их деление и выводит соответствующее сообщение.