Pascal, szövegfájl kezelés (sorok egyesítése) hogyan lehetséges?

Olyan programot szeretnék írni, amely szövegfájlból olvas be sorokat, két vagy több sort egyesít, meg van adva a sorhossz ami legyen például 75.

Ha a két sor hossza rövidebb mint 75 akkor átviszi és a következő sorral vagy sorokkal egyesíti amíg 75 nem lesz, tehát a fennmaradó maradékra is figyel.

Mivel legegyszerűbb ezt megcsinálni?

TStringlist-et kevésbé ismerem.

A nyelvtani szabályok most itt kevésbé foglalkoztatnak, meg a szóköz figyelembevétele is, az foglalkoztat leginkább, hogy logikailag egy ilyen hogy nézne ki.

program szovegfajl;

const

hossz = 75;

var

inf, outf : text;

s : string;

begin

assign(inf, paramstr(1));

reset(inf);

assign(outf, paramstr(2));

rewrite(outf);

while not eof (inf) do

begin

readln(inf,s);

writeln(outf,s);

end;

close(inf);

close(outf);

end.