помогите пожалуйста написать программу в паскале, которая бы определяла, входит ли цифра в запись четырехзначного числа

program qwe;
var
s: string;
n, nI: integer;
begin
write('Число: ');
readln(N);
write('Искомая цифра: ');
readln(nI);

if pos(IntToStr(nI), IntToStr(n)) <> 0
then writeln('Входит')
else writeln('Не входит');

end.