задание второе

[Евгения55555555555]

Здравствуйте, помогите пожалуйста доделать задачу(
Квадратный массив, элементами которого являются английские буквы или символ пробела, заполнен кроссвордом. Напечатать все слова в кроссворде с чередующимися гласными и согласными буквами и их количество.

uses crt;
var
n,p:byte;
s:array[1..100,1..100] of string;
a:array[1..100] of string;
slovo,slovo2:string;
B: set of char;
C: set of char;

procedure vvod (var n:byte);
var
i,j,menu,k,d,p:byte;

begin
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    menu:=random(2);
    if (j>=3) and (s[i,j-1]<>' ') and (s[i,j-2]=' ') then menu:=1;
    case menu of
      0: s[i,j]:=chr(32);
      1: s[i,j]:=chr(65+random(26));
      end;
    if (j=n) and (s[i,j-1]=' ') and (s[i,j]<>' ') then s[i,j]:=chr(32);
    if (j=2) and (s[i,j-1]<>' ') and (s[i,j]=' ') then s[i,j]:=chr(65+random(26));
    write(s[i,j]:2);
    end;
  writeln;
  end;
end;



procedure kol (var n:byte);
var
i,j,d,k,p:byte;
begin
d:=0;
B:=['Q','W','R','T','P','S','D','F','G','H','J','K','L','Z','X','C','V','B','N','M'];
C:=['E','Y','U','I','O','A'];
                      {По горизонтали}
for i:=1 to n do
begin
for j:=1 to n do
begin
If  (s[i,j]<>' ')  then begin

slovo:=slovo+s[i,j];if  (j=n) or (s[i,j+1]=' ') then
begin writeln('Слово по горизонтали ',slovo);writeln;slovo:=' '; d:=d+1;
 end   else end;
end;
end; writeln(d);
                                 {По вертикали}
for j:=1 to n do
begin
for i:=1 to n do
begin
If  s[i,j]<>' ' then begin
slovo:=slovo+s[i,j];if  (i=n) or (s[i+1,j]=' ') then
begin if length(slovo)>2 then writeln('Слово по вертикали ',slovo);writeln;slovo:=' '; end else end;
end;
end;

end;

begin
clrscr;
writeln('Введите размер матрицы nxn, 12<=n<=20');
write('n=');
readln(n);
vvod(n);
kol(n);

writeln('Нажмите Enter для завершение программы');
end.

программа выводит слова, а нужно выписать те слова у которых буквы чередуются, как это сделать???

заранее спасибо