Дан массив строк. Найти все такие группы букв(в группе только буквы), в которые входит буква 'а' не менее 2ух раз, группы разделяются пробелами

uses crt;
const nmax=20;
var a:array[1..nmax] of string[80];
    n,i,j,k,m,p,q:byte;
    s:string;
begin
repeat
write('Сколько строк ввести до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите ',n,' строк длиной до 80 символов, содержащих группы символов,');
writeln(' в том числе букв, разделенных пробелами:');
for i:=1 to n do
read(a[i]);
writeln('Группы букв, содержащие не менее 2х букв а:');
p:=0;
for i:=1 to n do
 begin
  j:=1;
  while j<=length(a[i])do
  if (a[i][j]<>' ')and((j=1)or(a[i][j-1]=' '))then
   begin
    s:='';
    k:=j;
    while(k<=length(a[i]))and(a[i][k]<>' ') do
     begin
      s:=s+a[i][k];
      k:=k+1;
     end;
    q:=0;
    for m:=1 to length(s) do
    if s[m]='a' then q:=q+1;
    if q>1 then
     begin
      p:=1;
      writeln(s);
     end;
    j:=j+length(s);
   end
  else j:=j+1;
 end;
if p=0 then write('Групп букв с двумя а нет');
end.