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

program kurs;
uses Crt;
type
RB=record   Запись сведений
A,T,Y: string[10]; 
end; 
var 
D,M,i,k,z: integer; Sr,Sr0,max:real;
BookFile: file of RB; Переменная для файла с записями RecBook
Work: RB; Переменная для доступа к записям
Vid: Byte;
End_Menu:boolean;
Name,s: string[50];
procedure AddRec;   Добавление записи в файл
begin
writeln('Ввод записи №',FilePos(BookFile)+1);
with Work do
begin
Write('Введите фамилию:');
Readln(A);
Write('Введите имя:');
Readln(Y);
Write('Введите телефон:');
Readln(T);
Write(BookFile, Work); end;
end;
procedure Create_Supplementing_library; Создание нового файла
var
Ind, Count:integer; begin Name:='A:\phone.txt';
Assign(BookFile, Name); Открыть новый файл для записи
Rewrite(BookFile);
Writeln('Создание записей файла ', Name);
Write('Введите количество телефонов на станции: ');
Readln(Count);
for Ind:=1 to count do
AddRec;
Writeln('Создание файла данных библиотеки завершена');
Writeln('Файл данных имеет ', FileSize(BookFile), ' записи'); close(BookFile);
end;
procedure OutputRec;
begin
With Work do
writeln(A,' ',Y,'   ',T);
end;
procedure OutputAllRec;
begin
clrscr;
Name:='A:\phone.txt';
Assign(BookFile, Name);
Reset(BookFile); clrscr; Seek(BookFile, 0);
Writeln(' Фамилия    Телефон');
writeln;
while (not Eof(BookFile)) do begin
With Work do begin
Read(BookFile, Work);
Outputrec; end; 
end;end;
procedure FindTel; 
begin 
clrscr; 
Name:='A:\phone.txt'; 
Assign(BookFile, Name); 
Reset(BookFile); 
writeln('Введите фамилию'); 
readln(s); 
clrscr; 
Seek(BookFile, 0);
Writeln(' Фамилия    Телефон');
writeln;
while (not Eof(BookFile)) do begin
With Work do begin
Read(BookFile, Work);
if s=a then begin Outputrec;z:=1;end;
end;
end;
if z=0 then writeln('В справочнике данных о ',s,'е нет');
end;
begin
ClrScr;
End_Menu:=False; repeat textcolor(7); 
Writeln('Выберите вид работы:'); 
Writeln(' 1- создать новый файл данных'); 
Writeln(' 2- вывод всей картотеки'); 
Writeln(' 3- поиск телефона по фамилии'); 
Writeln(' 0- завершение работы:'); 
Write('Ваш выбор:'); 
Readln(Vid);
case Vid of 
1:Create_Supplementing_library; 
2:OutputAllRec; 
3:FindTel; 
0:End_Menu:=True; 
end;
writeln;
Writeln('Для продолжения нажмите Enter'); 
Readln;
ClrScr;
until End_Menu;
end.