Найти в строке слово, в котором повторяется а - Turbo Pascal

uses crt;
var s,s1:string;
    i,j,k,q:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s+' '; //добавим пробелы в начало и в конец для удобства
writeln('Слова с повторяющейся буквой а');
i:=1;
q:=0;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  k:=0;
  for j:=1 to length(s1) do
  if s1[j]in['a','а'] then inc(k); //латинская и русская буквы а
  if k>1 then
   begin
    writeln(s1);
    q:=1;
   end;
  i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
if q=0 then write('Таких слов нет');
readln
end.