Программа в паскале!

[zzzZZZzzz]

Помогите плз оч надо написать 2 программы в паскале!
1)Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести номер первого элемента, нарушающего закономерность.
2)Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые a) начинаются и заканчиваются одной и той же буквой б) содержат хотя бы одну букву "А".

[DoDge_VipeR]

1)

k:=0;
for i:=2 to n do
if a[i]*a[i-1]>0 then begin k:=i;break;end;
writeln(k);

[zzzZZZzzz]

program vadimlentyai;
uses crt;
const n=100;
var a:array[1..n]of integer;
i,j,m,k:integer;
begin
randomize;
writeln('Vvedite razmer massiva');
readln(m);
for i:=1 to m do
begin
a[i]:=random(51)-25;
end;
writeln;
k:=0;
for i:=2 to n do
if a[i]*a[i-1]>0 then begin k:=i;break;end;
writeln(k);
end.

вот так???

[ROMA2PVT]

Uses
   CRT;
Var
    mas:Array [1..100] Of Integer;
    i,k,n:integer;
Begin
   clrScr;
   write('Введите количество элементов: ');
   readln(n);
      writeln('Массив MAS: ');
         For i:=1 To n Do
            begin
              mas[i]:=random(10)-2;
              write(mas[i]:2,' ');
             end;
               k:=0;
                 for i:=2 to n do
                   if mas[i]*mas[i-1]>0 then
                     begin
                       k:=i;
                       break;
                     end;
                      writeln;
                      writeln(k);
     readkey;
End.

[zzzZZZzzz]

Спасибо 1 понятно как делать ,а со 2 не поможете???

[zzzZZZzzz]

2)Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые a) начинаются и заканчиваются одной и той же буквой б) содержат хотя бы одну букву "А".