Помошь в составлении блок схемы.

program variant5;
uses
  CRT;
const
  DefaultFileName = 'input.txt';
  EndFileName = 'output.txt';
  MaxLinesPerPage = 60;
  MaxCharsPerLine = 60;
  WordChars = ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'];
 
var
  Pr: Text;
  InpF: Text;
  FileName: String;
  SourceLine, LineToPrint: String;
  PageNumber: Integer;
  PageLinesCount: Integer;
 
function RTrim(const S: String): String;
var
  L: Integer;
begin
  L := Length(S);
  if L > 0 then begin
    while S[L] <= ' ' do Dec(L);
    RTrim := Copy(S, 1, L);
  end;
end;
 
begin
  Write('Введите имя файла (по умолчанию', DefaultFileName, ' : ');
  ReadLn(FileName);
  if FileName = '' then
    FileName := DefaultFileName;
  Assign(InpF, FileName);
  {$I-}
  Reset(InpF);
  if IOResult <> 0 then begin
    WriteLn('Ошибка! Файл "', FileName,'" не существует');
    ReadKey;
    Exit;
  end;
 
  Assign(Pr, EndFileName);
  Rewrite(pr);
  if IOResult <> 0 then begin
    WriteLn('Ошибка! Результирующий файл"', EndFileName,'не создан" ');
    ReadKey;
    Exit;
  end;
 
  PageLinesCount := 0;
  PageNumber := 0;
 
  while not Eof(InpF) do begin
    ReadLn(InpF, SourceLine);
    repeat
      LineToPrint := Copy(SourceLine, 1, MaxCharsPerLine);
      SourceLine := Copy(SourceLine, MaxCharsPerLine + 1, Length(SourceLine));
      if Length(LineToPrint) = MaxCharsPerLine then
        if LineToPrint[MaxCharsPerLine] in WordChars then
          if Length(SourceLine) > 0 then
            if SourceLine[1] in WordChars then begin
              SourceLine := LineToPrint[MaxCharsPerLine] + SourceLine;
              LineToPrint[MaxCharsPerLine] := '-';
            end;
      if (PageLinesCount = 0) or (PageLinesCount = MaxLinesPerPage) then begin
        Inc(PageNumber);
        WriteLn(Pr, '========================== PAGE ', PageNumber, ' ==========================');
        PageLinesCount := 1;
      end;
      WriteLn(Pr, LineToPrint);
      Inc(PageLinesCount);
    until SourceLine = '';
 
  end;
  Close(Inpf);
  Close(Pr);
end.