Нужно найти ошибку или написать алгоритм по проще! (строки)

[velamut]

Народ помогите найти ошибку или написать по проще алгоритм!

ЗАДАЧА
Ввести текст. Найти в нем количество слов, начинающихся и заканчивающихся гласной буквой. Вывести эти слова и их количество.

Вот код программы выводит только количество слов которые начинаються на гласные а нужно что бы одновременно начинались и заканчивались гласной буквой!

unit Unit1;
 interface
 uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Buttons;
 type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Label1: TLabel;
   Label2: TLabel;
   BitBtn1: TBitBtn;
   BitBtn2: TBitBtn;
   Label3: TLabel;
   Edit1: TEdit;
   procedure BitBtn2Click(Sender: TObject);
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 var
 Form1: TForm1;
 implementation
 {$R *.dfm}
 procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 Close;
 end;
 const maxn=100;
 var s:array[1..maxn] of string;
     l,n,i,k:integer;
  procedure TForm1.BitBtn1Click(Sender: TObject);
  begin
  n:=strtoint(edit1.Text);
  for i:=1 to n do
 s[i]:=memo1.Lines[i-1];
 k:=0;
   for i:=1 to n do
     begin
     l:=length(s[i]);
     if (pos(s[i][1], 'аоиуеыэюяАОИУЕЫЭЮЯ') > 0)
        and (pos(s[i][1], 'аоиуеыэюяАОИУЕЫЭЮЯ') > 0)
        then k:= k+1 
 end;
 label2.Caption:=inttostr(k);
 end;
 end.

[Z1000000]

program FirstLast;
label 1;
var
 aStr,CurWord : String;
 i,k,Counter : Integer;
begin
aStr := 'Думай Жди Африка Клубок Ондатра Вепрь Иволга';
writeln ( aStr );
aStr := aStr + ' ';
Counter := 0;
for i := 1 to Length(aStr) do
 begin
  if aStr[i] = ' ' then
   begin
   if CurWord <> '' then
     begin
     if (pos(UpperCase(CurWord[1]), 'АОИУЕЫЭЮЯ') > 0) and (pos(UpperCase(CurWord[Length(CurWord)]), 'АОИУЕЫЭЮЯ') > 0)
      then
       begin
       Counter := Counter + 1;
       writeln ( CurWord );
       end;
     CurWord := '';
     end;
   end
  else
   begin
   CurWord := CurWord + aStr[i];
   end;
 end;
writeln ('Число слов,начинающихся и заканчивающихся гласной :',Counter);
end.

[Roof]

2 Z1000000
А зачем тут

label 1;

?

[Stilet]

Предлагаю свой алгоритм:http://www.programmersforum.ru/showt...369#post398369
Там в условии добавь

var 
if (a[count][1] in ['A','e','u','i','o'])and(a[count][length(a[count])] in ['A','e','u','i','o']) then Нужное слово