Obtener determinado dígito de un número

[xneox]

Código Delphi [-]
unit Uvega;

interface

function digito(a,b:integer):integer;

implementation

function digito(a,b:integer):integer;
var x,y,z :integer;
begin
  x:=a;
  y:=longitud(b);
  while x<=y do 
  begin
    z:= b mod 10;
    b:= b div 10;
    y:=longitud(b);
  end;
  digito:=z;
end;

end.

no me corre no se en que parte me sale que esta mal