Дано целое четырехзначное число. Определить, какая сумма больше - первой пары цифр числа или второй пары

program algoritm;
 
var
  x: integer;
 
begin
  write('Введите четырехзначное положительное число: ');
  readln(x);
  if (x > 999) and (x <= 9999) then 
  begin
    if (x div 1000 mod 10 + x div 100 mod 10) > (x div 10 mod 10 + x mod 10) then
      writeln('Сумма первой и второй цифры больше')
    else
    if (x div 1000 mod 10 + x div 100 mod 10) = (x div 10 mod 10 + x mod 10) then
      write('Сумма первой и второй пары цифр равны')
    else
      write('Сумма третьей и четвертой цифры больше')
  end
  else 
    writeln('Было введено не четырехзначное число.');
end.

function sum(n : Integer) : Integer; begin sum := n div 10 + n mod 10; end;
function sign(n : Integer) : Integer; begin if n < 0 then sign := -1 else if n > 0 then sign := +1 else sign := 0; end;
var x : Integer;
begin
  Write('Введите четырёхзначное натуральное число: '); ReadLn(x);
  if (x < 1000) or (x > 9999) then
    begin WriteLn('Число не соответствует условию!'); Halt; end;
  case sign(sum(x div 100)-sum(x mod 100)) of
    -1 : WriteLn('Больше сумма второй пары цифр числа.');
     0 : WriteLn('Суммы равны.');
    +1 : WriteLn('Больше сумма первой пары цифр числа.');
  end;
end.