Вот решение задачи №6 под буквой б.
uses crt;
var k,il,i,n:byte;
text:string;
simv:set of char;
begin
clrscr;
simv:=['q','w','e','r','t','y','u','i','o','p','a','s','d ','f','g','h','j','k','l','z','x','c','v','b','n', 'm'] ;
writeln('Введите текст ');read(text);
n:=length(text);
for i:=1 to n do begin
if text[i] in simv then
for il:=i+1 to n do
if text[il]=text[i] then writeln(text[il],'этот символ встречается в тескте 2 или более раз');
end;
end.