Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр

varstr:string;beginreadln(str);if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма равна')  else write('Сумма неравна');end.