Ребят, срочно нужна помощь. Надо написать программу га языке паскаль котораяопределяет одинаковые ли цифры стоят в начале и конце числа N.

uses crt;
var a,b,c: Integer;
Begin
Write('Введите число: ');
Readln(a);
While a>=10 do
a:=a div 10;
b:=a;
c:=a mod 10;
If b=c then
Writeln('Первая и последняя цифра данного числа одинаковы.')
Else writeln('Первая и последняя цифры введённого числа не совпадают');
End.