ДАЮ 50 БАЛЛОВ! ПАСКАЛЬ решить 2 программы . !?! Алфавит состоит из Ы, Ц, Щ, О 1 Вывести на экран с

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

2) Вывести на экран все слова из К букв, в которых есть одинаковые буквы, стоящие рядом. Посчитать их количество.'

  • 1.
    program n_1;
    var a, b : string; i, s, n: integer;
    begin
    n:=0;
    repeat
    writeln('Введите слово');
    readln(a);
    s:=length(a);
    for i:=1 to s do
    begin
    if a[i]='' then n:=n+1
    end;
    if n>=2 then b:=b+' '+a;
    writeln('Слово',b);
    writeln('Количество букв: ', n);
    end.
    program abc;
    var a:string; z, i, k, l m, n: integer;
    begin
    k:=0;
    l:=0;
    m:=0;
    n:=0;
    writeln('Введите слово');
    readln(a);
    z:=length(a);
    for i:=1 to z do
    begin
    if 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;
    begin
    repeat
    writeln('Введите слово');
    readln(a);
    s:=length(a);
    for i:=1 to s do
    if a[i]=a[i+1] then l:l+' '+a;
    until a>' ';
    writeln(l);
    end.