Обьяснение программы в Pascal

program first;
uses crt;
var x,y,z,d: integer;
begin
clrscr;
readln (x);
y:=x mod 10;
while (x div 10) > 0 do
begin
d:=x mod 10;
x:=x div 10;
if d>z then z:=d;
if d<y then y:=d;
end;
d:= x mod 10;
x:= x div 10;
if d>z then z:=d;
if d<y then y:=d;
if (z-y) mod 2 = 0 then writeln ('разность максимальной и минимальной цифр четное число')
else writeln ('разность максимальной и минимальной цифр не четное число')
end.

var
  x, y, max, min: integer;
 
begin
  readln(x);
  max := 0; min := 9;  // начальные значения
  while x > 0 do  // пока число больше нуля раскладываем по цифрам
  begin
    y := x mod 10;  // цифру заносим в отдельную переменную
    x := x div 10;  // после этого удаляем ее из числа
    if y < min then min := y;  // если цифра меньше текущего минимума
    if y > max then max := y;  // если цифра больше текущего максимума
  end;
  writeln('max = ', max, ', min = ', min);  // для удобства проверки
  writeln((max - min) mod 2 = 0)  // проверка на четность разности max и min
end.