Вывести слово данной строки, предшествующее первому из слов, содержащих букву 'a'

program str;
uses crt;
var s,s1,s2:string;
    i,l,a,n:byte;
    f:boolean;
begin
writeln('input string');
readln(s);
l:=length(s);
a:=0;
n:=0;
i:=1;
while s[i]=' ' do
  inc(i);
while a=0 do
  begin
    s1:='';
    while (s[i]<>' ') and (i<=l) do
      begin
        s1:=s1+s[i];
        if (s[i]='a') and (n>0) then inc(a);
        inc(i);
      end;
    s2:=s1;
    i:=i+2;
    inc(n);
  end;
write(s2);
end.

program str;
uses crt;
var s,s1,s2:string;
    i,l,a,n:byte;
    f:boolean;
begin
writeln('input string');
readln(s);
l:=length(s);
i:=2;
if(s[1] = 'a') then writeln('Empty') else begin
while i < l do
  begin
    if(s[i] = 'a') and (s[i - 1] = ' ') and (i <> 2) then
      break
    else
     inc(i);
  end;
a:=i - 2;
if(i <> l) then begin
  while a <> 0 do
    begin
      if (s[a] = ' ') then
        break
      else
       s1:= s[a] + s1;
      dec(a);
    end;
  writeln(s1);
end
else writeln ('Empty');
end;
readkey;
end.

program str;
uses crt;
var s,s1,s2:string;
    i,l,n:byte;
    a,f:boolean;

procedure read_word(s:string; var s1:string; var i:byte); {процедура считывает из строки s слово начиная с позиции i, и сохраняет его в строку s1}
  var l:byte;
  begin
    l:=length(s);
    s1:='';
    while (s[i]<>' ') and (i<=l) do
      begin
        s1:=s1+s[i];
        inc(i);
      end;
  end;

procedure skip_spaces(s:string; var i:byte); {процедура пропускает пробелы и устанавливает указатель i на следующую после последнего пробела позицию}
  begin
    while s[i]=' ' do
      inc(i);
  end;

function search_char(s1:string):boolean; {функция ищет в слове букву 'a'}
  var i,l:byte;
  begin
    search_char:=false;
    l:=length(s1);
    for i:=1 to l do
        if s1[i]='a' then search_char:=true;
  end;

begin
writeln('input string');
readln(s);
l:=length(s);
i:=1;
a:=false;
n:=0;
s1:=''; s2:='';
skip_spaces(s,i); 
if i>l then {если в строке одни пробелы, то завершение программы}
   write('err')
else
  begin
    while (i<=l) and (a=false) do
      begin
        skip_spaces(s,i);
        read_word(s,s1,i);
        inc(n); {счетчик слов}
        f:=search_char(s1);
        if (n>=2) and (f=true) then
          begin
            a:=true;
            write(s2);
          end;
        s2:=s1;
        s1:='';
        inc(i);
      end;
  end;
end.