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

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