Очень нужна помощь !!!С клавиатуры вводятся трёхзначные числа до тех пор,пока

var a,a2,b,c:integer; begin write('введите трёхзнаное число ==> '); readln(a); a2:=a; while ((a div 100)<>(a mod 10)) do begin while (a2<>0) do begin b:=a2 mod 10; c:=c+b; a2:=a2 div 10; end; if c<10 then writeln('сумма цифр меньше 10 ==> ',a); c:=0; write('введите трёхзнаное число ==> '); readln(a); end; end.

Var a,a2,b,c:integer;
begin
write('введите трёхзначное число ==gt; ');
readln(a);
a2:=a;
while ((a div 100)lt;gt;(a mod 10)) do begin
while (a2lt;gt;0) do begin
b:=a2 mod 10;
c:=c+b;
a2:=a2 div 10;
end;
if clt;10 then writeln('сумма цифр меньше 10 ==gt; ',a);
c:=0;
write('введите трёхзначное число ==gt; ');
readln(a);
end;
end.