Найдите все двузначные числа, которые содержат заданную цифру N, введенную с клавиатуры. помогите, пожалуйста! примерно представляю, как все должно выглядеть, но вот записать это языком Паскаля не могу никак

Program primer; Var i,n,k,chislo:integer; Begin cls; write(' skolko chisel budem vvodit ? '); readln(n); write('chislo dlia poiska : '); read(k); for i:=1 to n do begin readln(chislo); if ((chislo mod 10 = k) or (chislo div 10 = k)) then write('chislo ',chislo,' udov uslovie.. ') else write('chislo ',chislo,' NE udov uslovie.. '); writeln; end; readln; End.