[hottabych23]

В цыкле тебе нужно делать эту проверку

Код:

if copy(s,i,j)=copy(s,i+2,j) then writeln('Your char is ',copy(s,i+1,1)); 

потом в другом цыкле додавать j.