uses Regexpr;
var
    r : TRegExprEngine;
    index, len : LongInt;
  
begin
    r := GenerateRegExprEngine('autók',[]);
    
    if RegExprPos(r, 'törött autó van a garázsban', index, len) then
      WriteLn('Benne van')
    else
      WriteLn('Nincs benne');
    
    DestroyregExprEngine(r);
end.