Строки. Выписать из предложения все слова из трех букв, начинающиеся с буквы "а"

unit lol;
 
 
interface
 
 
var t:text;st,z:string;a:integer;
 
 
implementation
 
 
procedure vvod(var z:string);
var t:text;st:string;
begin
writeln('vvedite imya faila');
readln(z);
z:=z+'.txt';
assign(t,z);
rewrite(t);
writeln('vvedite text');
readln(st);
writeln(t,st);
close(t);
end;
procedure prosmotr(var z:string);
var t:text;st:string;
begin
assign(t,z);
reset(t);
readln(t,st);
writeln(st);
close(t);
end;
procedure prosmotrviv;
var i,n:integer;t:text;st:string;
begin
assign(t,'vivod.txt');
reset(t);
readln(t,st);
close(t);
writeln(st);
end;
procedure delete(z:string);
var a:string; t,r:text;
begin
assign(t,z);
assign(r,'vivod.txt');
writeln('vvedite imya faila');
read(a);
a:=a+'.txt';
if a = z then
erase(t)
else if a= 'vivod' then
erase(r);
end;
 
 
end.

var
  s: string;
  a, i, k: integer;
begin
  write('введите придложение:');
  readln(s);
  a:=length(s);
  k:=1;
  for i:=1 to a do
    begin
      if s[i]=' ' then
        begin
          if (i-k=3) and (s[k]='а') then
            begin
              write(s[i-3], s[i-2], s[i-1]);
            end;
          k:=i+1;
        end;
    end;
end.