Дано двузначное число, дописать к нему цифру k в конец и в начало. в паскаль. , . завтра последний день

// дано двузначное число, дописать к нему цифру k в конец и в начало. 
var x,y:word;
begin 
writeln('Введите двухзначное число'); 
readln (x); 
writeln('Введите цифру k');   
readln (y); 
x:=(x*10+y)+y*1000; 
writeln (x);
end.