Napisu to obecne, do pascalu to snad neni uz problem presat

Kód:
char c,last;

do {
c=cti_znak();
if (c=eoln AND last=eoln)
 { 
   // tady co chce provest pri dvou eoln po sobe
 }
// tady co provadis normalne
last=c;
}while(eof);
Psal jsem to rychle ale idea z toho je snad jasna