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

Var n:integer;
    max,min:integer;
Begin
    write('N = ');readln(n);
    max:=n mod 10;min:=max;
    n:=n div 10;
    While n>0 do
    Begin
      if n mod 10 > max then max:=n mod 10;
      if n mod 10 < min then min:=n mod 10;
      n:=n div 10;
    End;
    writeln((max-min) mod 2 = 0);
    readln;
End.

var
  x, max, min, ed: integer;
 
begin
  max := 0;
  min := 0;
  write('Введите число: ');
  read(x);
  x := abs(x);
  while (x <> 0) do
  begin
    ed := x mod 10;
    if (ed > max) then max := ed
    else
    if (ed < max) then min := ed;
    x := x div 10;
  end;
  if ((max - min) mod 2 = 0) then writeln('(+)Разность максимальной и минимальной цифр числа является чётной') 
  else 
    writeln('(-)Разность максимальной и минимальной цифр числа не является чётной');
end.

var
  n, d, max, min: integer;
 
begin
  write('n = ');
  readln(n);
  min := 10;
  max := -min;
  repeat
    d := n mod 10;
    n := n div 10;
    if d > max then max := d;
    if d < min then min := d
  until n = 0;
  write('Разность максимальной и минимальной цифр числа ');
  if odd(max - min) then write('не ');
  write('чётная')
end.