Пусть дан текст. Верно ли что в нем имеются буквы входящие в слово,задаваемое пользователем? Нужно прогрраммку, если можно с пояснениями

{ввожу текст, затем слово. Переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. Если это случилось, то Flag становится равной 1. К буквам слова и текста обращаемся как к массиву a[i] b[j]} var a,b:string; i,n,k,j,flag:integer; begin flag:=0;    writeln('Введите текст');    readln(a);    Writeln('Введите слово');    Readln(b); k:=length(a); n:=length(b);    for i:=1 to n do        for j:=1 to k do            if a[i]=b[j]then                flag:=1; if flag=1 then    writeln('Y') else    writeln('N'); end.