Дописать число в начало и конец двузначного числа — Pascal(Паскаль)

var
a,b,d,m:longint;
begin
writeln('vvedite dvuznachnoe chislo');
readln(a);
writeln('vvedite chislo, kotoroe dopishem');
readln(b);
d:=b;
m:=1;
repeat
m:=m*10;
d:=d div 10;
until d=0;
writeln(b*100*m+a*m+b);
readln;
end.

uses crt;
var a,b,c,k:longint;
begin
clrscr;
repeat
write('Введите двухзначное число a=');
readln(a);
until a in [10..99];
repeat
write('Введите натуральное число не более 2146 b=');
readln(b);
until (b>0)and(b<=2146);
c:=b;
k:=100;
while c>0 do
 begin
  c:=c div 10;
  k:=k*10;
 end;
c:=b*k+a*(k div 100)+b;
write(c);
readln
end.