\documentclass[a5paper]{article}
\usepackage[LGR,T1]{fontenc}
\usepackage{lmodern}
\usepackage[greek.polutoniko,french]{babel}
\languageattribute{greek}{ancient}
\usepackage{textalpha}
%\usepackage{alphabeta}
\begin{document}
\noindent un texte
\begin{otherlanguage}{greek}
Σώστρατε, UN INTRUS ἐρῶν άπῆλθες εὐθύς
῾Ιδὼν ἐνθέδε παῖδ’ ἐλευθέραν τὰς πλησίον Νύμφας στεφανοῦσαν,
Σώστρατε, ἐρῶν άπῆλθες εὐθύς
\end{otherlanguage}
un autre.\\

Σώστρατε, UN AUTRE INTRUS ἐρῶν άπῆλθες εὐθύς
\end{document}
