Дано натуральное число. Найти сумму цифр этого числа. Верно ли что число начинается и заканчивается одной и той же цифрой — Pascal(Паскаль)

VAR
 N, sum, first, last: Word;
BEGIN
 Write('Введите целое число без знака: ');  ReadLn(N);
 Write('Число N: ',N);
 first := N mod 10; {первая цифра - как остаток от деления}
 sum   := first; {Сумма чисел знака}
 N := N div 10;
 while N <> 0 do begin
  last := N mod 10;
  sum  := sum + last;
  N    := N div 10
 end;
 WriteLn(', сумма цифр = ',sum);
 WriteLn('Первая цифра: ',first,', последняя цифра: ',last);
 WriteLn('Верно ли что первая цифра равна последней? ',first = last);
END.