Вычислить сумму тех чисел из заданного отрезка, в запись которых входит цифра k - Pascal

function HaveK(numb: Word; k: Byte): Word;
var
    flag: Boolean;
    Result: Word;
begin
    Result := numb;
    repeat
        flag := ((numb mod 10) = k);
        numb := numb div 10;
    until ((numb = 0) Or (flag));
    if (Not flag)
    then
        Result := 0;
    HaveK := Result;
end;
 
function Rec(const a, numb: Word; const k: Byte): LongWord;
var
    Result: LongWord;
begin
    if (numb >= a)
    then
    begin
        Result := HaveK(numb, k) + Rec(a, numb - 1, k);
    end
    else
        Result := 0;
    Rec := Result;
end;
 
var
    a, b: Word;
    k: Byte;
begin
    Write('Input a='); ReadLn(a);
    repeat
        Write('Input b(>=', a, ')=');
        ReadLn(b);
    until (b >= a);
    repeat
        Write('Input k=');
        ReadLn(k);
    until (k < 10);
    WriteLn('Sum=', Rec(a, b, k));
end.