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