[Pascal] Jak wstawić enter co 28 znaków w pliku tekstowym?

uses crt;
 var ch:char;
     plik,plik1:text;
     i:integer;
  begin
  i:=0;
  assign(plik,'C:\QQ.txt');
  reset(plik);
   assign(plik1,'C:\0a.txt');
   rewrite(plik1);
   while(not eof(plik)) do
    begin
    readln(plik,ch);
    repeat
         i:=i+1;
     write(plik,ch);
      {if i=28 then
      write('lol'); }
     until eof(plik);
          end;
     close(plik1);
     close(plik);
     repeat until keypressed;
  end.

readln(plik,ch); 

read(plik,ch);

repeat 

until eof(plik); 

write(plik,ch);
{if i=28 then
write('lol'); }

if i=28 then writeln(plik1,ch)
else begin
  write(plik1,ch);
  i:=0;
end;

i:=i+1; 

inc(i);

if i=28 then writeln(plik1,ch)
else begin
  write(plik1,ch);
  i:=0;
end;

if i=28 then begin
  writeln(plik1,ch);
  i:=0;
end
else write(plik1,ch);