Построить блок схему по программе

Uses crt;
Var f: text;
    prov,fam: string [20];
    v,n: integer;
    ot,d: integer;
    k,max,min,mn,mx: integer;
    o: char;
Begin
  clrscr;
  assign (f,'text.txt');
  {rewrite (f);
  repeat
    write ('Введите табельный номер: ');
    readln (n);
    write ('Введите фамлию: ');
    readln (fam);
    write ('Введите профессию: ');
    readln (prov);
    write ('Введите выработку: ');
    readln (v);
    writeln (f, n:5,fam:20,prov:20,v:5);
    write ('продолжить? Ответ: ');
    readln (o);
  until o in ['н','Н','N','n'];
  close (f);}
  writeln;
  write ('Введите предел выработки от: ');
  readln (ot);
  write ('Введите предел выработки до: ');
  readln (d);
  writeln;
  reset (f);
    k:=0;
    max:=0;
    min:=30000;
    mn:=30000;
    mx:=0;
    while not(eof(f)) do
      begin
        readln (f,n,fam,prov,v);
        if (ot<=v) and (v<=d) then inc(k);
        if (max<=v) and (v<=d) then max:=v;
        if (ot<=v) and (min>=v) and (v<=d) then min:=v;
        if mn>v then mn:=v;
        if mx<v then mx:=v;
      end;
  close (f);
  if k=0 then writeln ('Рабочих нету.')
  else
  begin
    begin
      writeln ('Список рабочих из заданных пределов.');
      writeln ('*** Табельный номер *** Фамилия *** Профессия *** Выработка ***');
      reset (f);
        while not(eof(f)) do
          begin
            readln (f,n,fam,prov,v);
            if (ot<=v) and (min>=v) and (v<=d) then writeln (n,fam,prov,v,' - Минимальная выработка.');
          end;
      close (f);
      reset (f);
        while not(eof(f)) do
          begin
            readln (f,n,fam,prov,v);
            if (ot<=v) and (v<=d) and not(v=min) and not (max=v) then writeln (n:5,fam:20,prov:20,v:5);
          end;
      close (f);
      reset (f);
        begin
          readln (f,n,fam,prov,v);
          if (max<=v) and (v<=d) then writeln (n,fam,prov,v,' - Максимальная выработка.');
          end;
      close (f);
    end;
  end;
  writeln;
  writeln ('Рабочий с минимальной выработкой.':25);
  reset (f);
    while not(eof(f)) do
      begin
        readln (f,n,fam,prov,v);
        if v=mn then writeln (n,fam,prov,v);
      end;
  close (f);
  writeln ('Рабочий с максимальной выработкой.':25);
  reset (f);
    while not(eof(f)) do
      begin
        readln (f,n,fam,prov,v);
        if v=mx then writeln (n,fam,prov,v);
      end;
  close (f);
  readkey;
End.