Помогите пожалуйста). Даны...

Помогите пожалуйста). Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово. Повторяющиеся буквы первого словане рассматривать. Например, если заданные слова «процессор» и информация», то для букв первого из них ответом должно быть: «нет да да да нет нет». это в паскале))

 

var
s,c,k:string;
i:integer;
begin
write ('Введите первое слово: ');
readln(s);
write ('Введите второе слово: ');
readln(c);
while length(s)<>0 do
begin
  k:=s[1];
  delete(s,1,1);
  while pos(k,s)<>0 do
  delete(s,pos(k,s),1);
  if pos(k,c)=0 then write('нет ')
                else write('да ');
end;
end.