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

))

что то у меня ошибку выдает при вводе(( т.е ввожу текст и слово и потом ошибка.

Program1.pas(14) : Ошибка времени выполнения: Индекс находился вне границ массива.

может длина строки большая? Должно быть не больше 255 символов в строке. Ум меня ошибку не дает

Не знаю, я попробовала и паскаль ABC и TURBO. Все Ок

{ввожу текст, затем слово. Переменная flag нужна для того, чтобы в нее записать 1, если из слова встретиться в тексте хотя бы раз буква. Если это случилось, то Flag становится равной 1. К буквам слова и текста обращаемся как к массиву a[i] b[j]}vara,b:string;i,n,k,j,flag:integer;beginflag:=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.