Определить, четно ли в строке количество единиц - Pascal ABC

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

Помогите написать условие: если в строке количество единиц четное, то ошибки нет, иначе (нечетное кол-во) ошибка.

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

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

const one='1';
var str : string;
     i, j:byte;
-------------------------
j:=0;
for i:=1 to Length(str) do
     if (str[i]=one) then j:=j+1;
--------------------------
if (j mod 2 =0) then true else false

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

В данном коде на языке Pascal ABC происходит следующее:

Объявляются две переменные: one (равная '1') и str (тип string).
Затем объявляются два байтовых переменных: i и j.
Далее идет цикл for, который проходит по каждому символу в строке str.
Внутри цикла проверяется, равен ли текущий символ '1'. Если да, то переменная j увеличивается на 1.
После завершения цикла проверяется, является ли значение переменной j четным (mod 2 =0).
Если это условие выполняется, то возвращается значение true, иначе возвращается значение false. Таким образом, данный код определяет, является ли количество единиц в строке четным числом.