Составить блок схему к готовому коду

uses crt,deftypes,sort3;
 
procedure readfromfile(var db:tdbf;var n:integer;fn:string);
var f:text;
begin
  assign(f,fn);
  reset(f);
  n:=0;
  while not eof(f) do begin
    with db[n] do begin
     readln(f,fio);
     readln(f,nomer);
     readln(f,rab);
     readln(f,t);
    end;
    n:=n+1;
  end;
  close(f);
end;
 
 
procedure writedbf(var db:tdbf;n:integer);
var i:integer;
begin
  writeln('------------------------------- Содержимое БД ------------------------------');
  writeln('ФИО':40,'№ дог.':7,'Наименование работы':20,'Срок вып.':10);
  for i:=0 to n-1 do with db[i] do writeln(fio:40,nomer:7,rab:20,t:10);
end;
 
 
var dbf:tdbf;
    i,n:integer;
 
begin
 clrscr;
 writeln('Программа работы массивом записей');
 writeln(' и сортировки его методом прямого обмена');
 readfromfile(dbf,n,'data.txt');
 writedbf(dbf,n);
 
 sort(dbf,n,false);
 writedbf(dbf,n);
 readkey;
end.

unit deftypes;
interface
 const nn=100;
 type tdata=record
       fio:string[60];
       nomer:integer;
       rab:string[60];
       t:integer;
     end;
     tdbf=array[0..nn] of tdata;
 
implementation
 
end.

unit sort3;
interface
 uses deftypes;
 procedure sort(var a:tdbf;max:integer;descend:boolean);
 
implementation
 
 function needparam(var dd:tdata):integer;
 begin
  needparam:=dd.t;
 end;
 
 
 procedure sort(var a:tdbf;max:integer;descend:boolean);
 var i,j,k:integer;x:tdata;q:boolean;
 begin
  repeat
   q:=true;
   for i:=0 to max-2 do begin
     if (((needparam(a[i])<needparam(a[i+1])) and descend)
     or ((needparam(a[i])>needparam(a[i+1])) and not descend)) then begin
      x:=a[i];a[i]:=a[i+1];a[i+1]:=x;
      q:=false;
     end;
   end;
  until q
 end;
end.