Умоляю ДАЮ 50 БАЛЛОВ!  ПАСКАЛЬ Помогите пожалуйста решить 2 программы . Пожалуйста срочно надо!?! Алфавит состоит из Ы, Ц, Щ, О 
1) Вывести на экран слова из К букв, в которых Ы встречается более одного  раза и посчитать количество.
2) Вывести на экран все слова из К букв, в которых есть одинаковые буквы, стоящие рядом. Посчитать их количество.'

1.program n_1;var a, b : string; i, s, n: integer;beginn:=0;repeatwriteln('Введите слово');readln(a);s:=length(a);for i:=1 to s dobeginif a[i]='' then n:=n+1end;if n>=2 then b:=b+' '+a;writeln('Слово',b);writeln('Количество букв: ', n);end.program abc;var a:string; z, i, k, l m, n: integer;begink:=0;l:=0;m:=0;n:=0;writeln('Введите слово');readln(a);z:=length(a);for i:=1 to z dobeginif a[i]='Щ' then k:=k+1 else if a[i]='Ц' then l:=l+1 else if a[i]='Ы' then n:=n+1 else m:=m+1;end;writeln('Щ', k, 'Ц', l, 'Ы', n, 'О', m);end.это на нахождение двойных буквprogram chet;var a, l: string; s, i: integer;beginrepeatwriteln('Введите слово');readln(a);s:=length(a);for i:=1 to s doif a[i]=a[i+1] then l:l+' '+a;until a>' ';writeln(l);end.