Якщо така задача, то я її розв'яжу без фанатизму
var r,s:string;
l,k:integer;
begin
readln(s);
s:=s+' ';
while length(s)<>0 do
begin
r:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
l:=length( r );
if (l>=3) then
if (r[l-2]='а') and (r[l-1]='т') and (r[l]='и') then
begin
writeln( r );
k:=k+1
end
end;
writeln(k)
end.