Строки

[Vaserman]

Здравствуйте уважаемые форумчане.
Помогите решить задачи:
1)Определить количество слов, которые не имеют в своем составе ни одного символа такой цепочки и вывести эти слова на экран.
2)Вывести на экран в перевернутом виде слова, содержащие подобные цепочки, если длина цепочки не превышает 6 символов.
3)Даны две строки А и В. Составьте программу, проверяющую, можно ли из букв, входящих в строку А, составить строку В (буквы можно использовать не более одного раза и можно переставлять).

[danekne]

3)
a и b - данные строки

flag:=true;
for i:=1 to length a do
if !pos(a[i],b) then flag:= false
else
delete (b,pos(a[i,b]);
if flag then writeln ('составить можно') else writeln('составить нельзя');

Первую и вторую нефига не понял