составить блок-схему

unit MODUL;
interface
type
mas1=array [1..4] of real;
                    {задание записи}
biblioteka=record
avtor:string[11];
name:string [8];
god:string[5];
kolichestvo:string[5];
end;
 
mas=array [1..4]of biblioteka;
var
kniga:array [1..4] of biblioteka;
a:integer;
fail3,fail2:text;
mas2:array [1..4] of string;
kol:mas ;
 
procedure Vvod;
procedure sort(var a:mas1);
procedure vivod;
procedure vfail;
 
implementation
               {считывание в запись с файла}
procedure Vvod;
var a:integer;
begin
 assign(fail3,'C:\Documents and Settings\Маркус\Рабочий стол\TP_7_RusLg\tp7\BIN\курсовая\vxod.pas');
 reset(fail3);
    for a:=1 to 4 do with kol[a] do begin
     read(fail3,kniga[a].avtor); 
     read(fail3,kniga[a].name); 
     read(fail3,kniga[a].god); 
     readln(fail3,kniga[a].kolichestvo);
    end;
    close(fail3);
end;
 
                {вывод записи на экран}
procedure vivod;
var a:integer;
begin
    writeln;
    writeln('  avtor':11,'  ','name':8,'  ','god':5,'  ','kolichestvo':5);  
    writeln;
    for a:=1 to 4 do with kol[a] do begin
    write(' ',kniga[a].avtor:11 - length (avtor));
    write( kniga[a].name:8 - length (name));
    write(' ',kniga[a].god:5 - length (god));
    writeln(' ',kniga[a].kolichestvo:5 - length (kolichestvo));
    end;
end;
               {сортировка}
procedure sort;
var i,j:integer;
x: biblioteka;
begin
for i:=2 to 4 do
 begin
 x:=kniga[i];
 j:=i-1;
 while (x.avtor<kniga[j].avtor) and (j>0) do
  begin
  kniga[j+1]:=kniga[j];
  j:=j-1;
  end;
  kniga[j+1]:=x;
end;
end;
                 {запись в файл}
procedure vfail ;
var a:integer;
begin
 assign(fail2,'C:\Documents and Settings\Маркус\Рабочий стол\TP_7_RusLg\tp7\BIN\курсовая\vixod dan.txt');
 rewrite(fail2);
    writeln;
    writeln(fail2,'  avtor':11,'  ','name':8,'  ','god':5,'  ','kolichestvo':5);
     writeln(fail2);
    for a:=1 to 4 do with kol[a] do begin
    write(fail2,'   ',kniga[a].avtor:11 - length (avtor));
    write(fail2,'  ',kniga[a].name:8 - length (name));
    write(fail2,'  ',kniga[a].god:5 - length (god));
    writeln(fail2,'  ',kniga[a].kolichestvo:5 - length (kolichestvo));
    end;
 close(fail2);
end;
 
 
end.

uses crt,MODUL;
begin
clrscr;
Vvod;
sortirovka;
vivod;
vfail;
end.