Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа

uses
  sysutils;
 
function sumNotOdd(x: longint): integer;
var
  s: integer;
begin
  s := 0;
  while x > 0 do
  begin
    if x mod 10 mod 2 = 0 then
      s := s + x mod 10;
    x := x div 10
  end;
  sumNotOdd := s;
end;
 
function sumOdd(x: integer): integer;
var
  s: integer;
begin
  s := 0;
  while x > 0 do
  begin
    if x mod 10 mod 2 <> 0 then
      s := s + x mod 10;
    x := x div 10
  end;
  sumOdd := s;
end;
 
var
  n:integer;
begin
  write('Введите число: '); readln(n);
  writeln('Сумма четных цифр:   ',sumNotOdd(n));
  writeln('Сумма нечетных цифр: ',sumOdd(n));
  if sumnotodd(n)>sumodd(n) then
    writeln('Верно, что сумма четных цифр больше.')
  else
    writeln('Неверно, что сумма четных цифр больше.'); 
  readln;
end.

uses
  sysutils;
 
procedure sumNotOdd(x: longint;var s:integer);
begin
  s := 0;
  while x > 0 do
  begin
    if x mod 10 mod 2 = 0 then
      s := s + x mod 10;
    x := x div 10
  end;
end;
 
procedure sumOdd(x: integer;var s:integer);
begin
  s := 0;
  while x > 0 do
  begin
    if x mod 10 mod 2 <> 0 then
      s := s + x mod 10;
    x := x div 10
  end;
end;
 
var
  sn,sc,n:integer;
begin
  write('Введите число: '); readln(n);
  sumNotOdd(n,sc);
  writeln('Сумма четных цифр:   ',sc);
  sumOdd(n,sn);
  writeln('Сумма нечетных цифр: ',sn);
  if sc>sn then
    writeln('Верно, что сумма четных цифр больше.')
  else
    writeln('Неверно, что сумма четных цифр больше.');
  readln;
end.

var
   number, temp, sum1, sum2: integer;
   procedure a1 ( sum11, sum22: integer );
   var  number1, temp1: integer;
   begin
   readln(number);
while number<>0 do
begin
temp:=number mod 10;                         
if temp mod 2 =0 then sum1:=sum1+temp
                 else sum2:=sum2+temp;
number:=number div 10;                     
end;
 
  end;
  begin
  writeln('Введите число');
  readln (number);
  a1(sum1, sum2);
  if sum1>sum2 then writeln ('Верно')
               else writeln ('Неверно');
 
               end.

var number: integer;//глобальная переменная вводимое число
procedure a1 ( var sum1, sum2: integer );//процедура возвращает значения сумм
var temp: integer;
begin
while number<>0 do
 begin
  temp:=number mod 10;
  if temp mod 2 =0 then sum1:=sum1+temp
  else sum2:=sum2+temp;
  number:=number div 10;
 end;
end;
var sum1, sum2: integer;
begin
writeln('Введите число');
readln (number);
a1(sum1, sum2);
if sum1>sum2 then writeln ('Верно')
else writeln ('Неверно');
end.

procedure a1 ( sum11, sum22: integer );