Вычислить сумму тех чисел из заданного отрезка [a;b] (a и b — натуральные ), в запись которых входит цифра k — Pascal(Паскаль)

program p1(input,output);
var a,b,k:integer;
function summ(a,b,k:integer):integer;
var i:integer; s:integer;
function in_k(c,k:integer):boolean;
label 99;
var p:integer;
begin
      while c<>0 do begin
      p:=c;
      c:=c mod 10;
      if c=k then begin in_k:=true; goto 99 end
        else c:=p div 10;
      end;
      in_k:=false;
99: end;
begin
     s:=0;
     for i:=a to b do
         if in_k(i,k) then s:=s+i;
     summ:=s;
end;
 
begin write('interval>');
      readln(a,b);
      write('k>');
      readln(k);
      write(summ(a,b,k));
      readln;
      readln;
end.