Вопрос Помогите составить программу в Pascal ABC !

label loop;
var a,b,s,l,e:longint;
begin
  l:=2147483647;
  loop:
  writeln('Введите натуральное число');
  readln(a);
  if (a>0) and (a<l) then
  begin 
  b:=a;
  s:=0;
  while ( b<>0 ) do 
  begin
    s := s + (b mod 10);
    b := b div 10;
  end;
 writeln( 'Сумма цифр числа ',a,' = ', s );
 end
 else 
 begin 
 writeln('Число может иметь значение от 1 до 2147483647');
 writeln();
 goto loop;
 end;
 e:=a mod 10;
 while a>10 do a:=a div 10;
 if e=a then write('Первая и последняя цифры заданного числа равны')
 else write('Первая и последняя цифры заданного числа не равны');
 writeln();
 goto loop;
end.