Программа запрашивает у пользователя отдельные числа и затем собирает их в одно целое число — Pascal(Паскаль)

program thirty_six;
uses crt;
var
a,b:LongInt;
begin
clrscr;
a:=1;
writeln('Введите числа от 1 до 9. "0" - означает окончание ввода');
writeln('Если будет введено число больше 9, то засчитается только первая цифра числа');
writeln;
while a<>0 do
begin
write('Введите число: ');
readln(a);
while a>=10 do
begin
a:=a div 10;
end;
b:=b*10+a;
end;
write('Результат :',b div 10);
readln;
end.