Текст, Зависание програмы Опции

[TS*]

Всем добрый вечер. Нужно вывети из тектса все слова с двумя бувами "а". Програмка просто зависает:

var
   tt: string;
   i, j, k: integer;
   kol_slov, bykv_a: integer;
   dve_a: boolean;
begin
   tt:=' laba asdf baba dfsadf erer';
   kol_slov:=0;
   for i:=1 to length(tt) do begin
      if (tt[i]=' ') then begin
         j:=i; bykv_a:=0; dve_a:=false;
         while tt[j]<>' ' do begin
            j:=j+1;
            if (tt[j]='a') then bykv_a:=bykv_a+1;
            if (bykv_a=2) then dve_a:=true;
         end;
         if dve_a then begin
            for k:=i to j-1 do write(tt[k]); writeln;
            kol_slov:=kol_slov+1;
         end;
         i:=j-1;
      end;
   end;
end.