Компилятор

var lineLength, lineCount,ll,lc,i,temp,page: integer;
    p,c: char;
    fin,fout: Text;
    isNum: boolean;
    
    
begin
  write('Символов на строку: ');
  readln(lineLength);
  write('Строк на страницу: ');
  readln(lineCount);
  write('Символ разделителя страницы: ');
  readln(p);
  
  assign(fin,'input.txt');
  reset(fin);
  assign(fout,'output.txt');
  rewrite(fout);
  ll:=0;
  lc:=0;
  page:=1;
  isNum:=false;
  writeln(fout,p,page,p);
  page:=page+1;
  while(not eof(fin)) do
  begin
     read(fin,c);
     if lc=lineCount then
     begin
        writeln(fout,p,page,p);
        page:=page+1;
        lc:=0;
     end;
     for i:=0 to 9 do
     begin
        temp:=ord(c)-48;
        if (temp=i) then
        begin    
            isNum:=true;
            c:=chr(0);
        end;
     end;
     if (c=char(10)) then c:=char(0);
     if (c=char(13)) then c:=char(0);
     write(fout,c);
     ll:=ll+1;
     if ll=lineLength then
     begin
      writeln(fout,'');
      lc:=lc+1;
      ll:=0;
     end;
     
     isNum:=false;
  end;
  close(fout);
  close(fin);
end.

var lineLength, lineCount,ll,lc,i,temp,page,pLength: integer;
    p,c: char;
    fin,fout: Text;
    isNum: boolean;
    s: string;
    
begin
  write('Символов на строку: ');
  readln(lineLength);
  write('Строк на страницу: ');
  readln(lineCount);
  write('Символ разделителя страницы: ');
  readln(p);
  
  assign(fin,'input.txt');
  reset(fin);
  assign(fout,'output.txt');
  rewrite(fout);
  ll:=0;
  lc:=lineCount;
  page:=1;
  isNum:=false;
  write(fout,p);
  while(not eof(fin)) do
  begin
     read(fin,c);
     
     if lc=lineCount then
     begin
        str(page,s);
        pLength:=Length(s);
        s:='';
        for i:=0 to lineLength do
          s:=s+p;
        writeln(fout,s);
        s:=p+page;
        for i:=0 to lineLength-pLength-1 do
          s:=s+' ';
        writeln(fout,s,p);
        page:=page+1;
        lc:=0;
        write(fout,p);
     end;
     
     for i:=0 to 9 do
     begin
        temp:=ord(c)-48;
        if (temp=i) then
        begin    
            isNum:=true;
            c:=chr(0);
        end;
     end;
     
     if (c=char(10)) then c:=char(0);
     if (c=char(13)) then c:=char(0);
     
     write(fout,c);
     ll:=ll+1;
     
     if ll=lineLength then
     begin
      writeln(fout,p);
      write(fout,p);
      lc:=lc+1;
      ll:=0;
     end;
     
     isNum:=false;
  end;
  
  s:='';
  for i:=ll to lineLength-1 do
    s:=s+' ';
  writeln(fout,s,p);
  s:='';
  for i:=0 to lineLength+1 do
    s:=s+p;
  writeln(fout,s);
  
  close(fout);
  close(fin);
end.

s := p + IntToStr(page);

uses SysUtils;