Найти разность первой и последней цифр заданного числа — Pascal(Паскаль)

program tmp;
uses crt;
var
   st:string;
   x,x1,x2,code,code1:integer;
begin
clrscr;
readln(x);
str(x,st);
val(st[1],x1,code);
val(st[length(st)],x2,code1);
write('razn= ',x1-x2);
readkey;
end.