Ezt ti hogy csinálnátok meg?

Egy programot szeretnék, ami egy fájlban tárolt 0 és 1 karaktereket tömörít. Például ilyeneket: 00000000001111000000000000001111111110000011111111010101000000000

Úgy szeretném, hogy ha nyolc egyforma van egymás után, akkor azt úgy írja ki, hogy egy bájtos leírót használ. Ahol is a tömörített leírójának balról első bitje egy, a második bitje 0, ha nullákat és 1 ha egyeseket tömörít. A további hat bit meg azt írja le, ahány darab van tömörítve. Ha mondjuk 10 és mind egyes, akkor a leíró bájt ilyen: 11001010

Ha mondjuk 14 és mind nulla, akkor meg ilyen: 10001110

Ha nem tömörít, mert nincs legalább nyolc egyforma, akkor a leíró első bitje 0 legyen és a többi bit a hét karakteres szekvenciának megfelelően az érkező nullák és egyesek sora.

mondjuk 0100110 esetében a leíró ilyen: 00100110

Az egészet freepascalban szeretném megcsinálni. Köszönök minden segitséget.