задачи на строки (delphi)

[Toxi]

1) дан текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву(текст пишется в edit)
2)дана строка. Подсчитать самую длинную последовательность подряд идущих букв "а".
помогите пожалуйста решить, а то завтра последний день сдачи... на мне еще курсач висит(((
заранее ОГРОМНОЕ спасибо.

[denisbrain]

var x:integer;
    s2,s1:string;
    l:integer;
    i:integer;
begin
  s1:=edit1.text;
  l:=length(s1);
  i:=0;
  for x:=1 to l do begin
   if s1[x] in [#10,#13,#146,#91,#93,#40,#41,#123,#125,#58,#44,#150,#151,#133,#33,#46,#45,
#145,#146,#147,#148,#171,#187,#39,#59,#47,#47,#32,#183,#38,#64,#42,#92,#149,#94,#169,
#164,#134,#135,#176,#35,#185,#37,#137,#182,#174,#167,#126,#153,#95,#124,#166] then begin
   if length(s2)>1 then
   if s2[1]=s2[length(s2)] then begin i:=i+1;
      form1.ListBox1.Items.Add(s2);
   end;
   s2:='';
   end
   else s2:=s2+s1[x];
  end;
  Showmessage('В тексте слов по условию '+inttostr(i));

end;

[Toxi]

спасибо Вам большое)