Дано 5 ти значное число вывести на экран монитора вторую и пятую цифры их разность

Var
  a: integer;
  b, x: byte;

begin
  readln(a);
  x := a mod 10;
  b := a div 1000 mod 10;
  writeln(b, ' - ', x, ' = ', b - x);
end.