Создать блок-схему для программы

uses
  crt;
 
const
  rz = [' ', ',', '.', '?', '!'];{разделителители слов, можно добавить еще, от файла зависит}
 
var
  f, g: text;
  a: array[0..100] of string;{масив строк для проверки на повторы}
  n, i, j: byte;
  nf, ng, s, s1, s2: string;
  b: boolean;
 
begin
  clrscr;
  {ввод имени файла для чтения}
  write('Имя файла для чтения: ');
  readln(nf);
  {открытие файла для чтения, а также чтение его содержимого}
  nf := nf + '.txt';
  assign(f, nf);
  {$I-} reset(f);  {$I+}
  {ввод имени файла для записи}
  write('Имя файла для записи: ');
  readln(ng);
  {открытие файла для записи, а также запись в него данных}
  ng := ng + '.txt';
  assign(g, ng);
  rewrite(g);
  n := 0;
  while not eof(f) do
  begin
    readln(f, s);
    b := true;{проверяем была уже или нет строка}
    i := 0;
    while(i <= n) and b do
      if s = a[i] then b := false{если была, выходим из цикла}
      else i := i + 1;{иначе дальше}
    if b then{если не нашли то продолжаем}
    begin
      n := n + 1; {считаем}
      a[n] := s;{запись  в массив}
      writeln(g, s);{в новый файл}
    end
    else{если была строка}
    begin
      s1 := '';{составим строку из слов в обратном порядке}
      i := 1;
      while i <= length(s) do
        {если не разделитель или перед ним разделитель - новое слово}
        if not (s[i] in rz) and ((i = 1) or (s[i - 1] in rz)) then
        begin
          s2 := '';
          j := i;
          while(j <= length(s)) and not (s[j] in rz) do{пока не конец и не разделитель}
          begin
            s2 := s2 + s[j];{составляем слово}
            j := j + 1;{дальше}
          end;
          s1 := s2 + s1;{пишем массив в начало строки, будет наоборот}
          i := i + length(s2);{перешагиваем через слово}
        end
        else{если разделитель}
        begin
          s1 := s[i] + s1;{пишем его в строку}
          i := i + 1;{на 1 вперед}
        end;
      writeln(g, s1);{пишем перевернутые слова в новый файл}
    end;
  end;
  close(f);
  close(g);
  write('Файл ', nf, ' переписан в файл ', ng);
  readln
end.