cyklus do konce souboru
  nactu radek do promenne - Readln(ts, radek);
  zpracujes - treba v cyklu for od 1 do delky retezce radek a vypises, co potrebujes
konec cyklu

Slo by to delat i tak, jak si to predstavujes - v nejake promenne si pamatovat, kolik radku jsi nacetl, pak vzdy nacist v cyklu tolikrat radek, kolik jich chces preskocit, ale to je blbost.

Ty prece taky znak nacitas do promenne znak, jen jsi ten kod proste nekde zkopiroval a netusis, co vlastne dela