Помогите пожалуйста сделать блок схемы

Program meny;
Uses crt;
Const
norm=$0E;{цвет невыделенного пункта}
sel=$1E;{цвет выделенного пункта} 
n=11;
bookh:array[1..3]of byte= (1,4,24);{позиция горизонтальных линий в таблице tablebook}
bookv:array[1..7]of byte= (1,22,39,47,55,62,80); {позиция вертикальных линий в таблице tablebook} 
readerv:array[1..4]of byte= (1,12,46,80); {позиция вертикальных линий в таблице tablereader} 
readerh:array[1..3]of byte= (1,3,24);{позиция горизонтальных линий в таблице tablereader}
tablebr:array[1..5]of byte= (1,20,41,62,80); {позиция вертикальных линий в таблице tablebr} 
 
type
  {Книги}
TPinfbook=^Tinfbook; {тип указателя}
Tinfbook=record {тип записи}  
invnom,name,avtor,izd:string[15];
kol,god:integer;
l,r:TPinfbook;
end;
Tbook=record
name, avtor:string;
end;
{Читатели}
TPreader=^Treader; {тип указателя}
Treader=record  {тип записи}  
fio,pasport:string[15];
regnom:integer;
spisok:array[1..5]of Tbook; {Массив книг(карточка читателя)}
nom:integer;{номер пустой ячейки в массиве книг}
l,r:TPreader;
end;
filebook=file of Tinfbook;
filereader=file of Treader;
 
Var
menu:array[1 .. n]  of  string[30];{названия пунктов меню}
punkt:integer;{номер выделенного пункта меню}
ch:char;{введенный символ}
x,y:integer;{координаты первой строки меню}
topbook:TPinfbook;
topreader:TPreader;
fbook:filebook;
freader:filereader;
 
Procedure Menutoscr;{вывод меню на экран}
var
i:integer;
begin
clrscr;
textattr:=norm;
for i:=1 to n do
begin
gotoxy(x,y+i-1);
write ( menu[i] );
end;
textattr – {предопределенная переменная, отвечающая за цвет фона и символов}
textattr:=sel;
gotoxy(x,y+punkt-1);
write( menu[punkt] );{выделим строку меню}
textattr:=norm;
gotoxy(15,21);
writeln('ВЫБОР ПУНКТА МЕНЮ -',chr(24),chr(25));
gotoxy(37,21);
writeln('ENTER',chr(27),'-ПЕРЕМЕЩЕНИЕ ВГЛУБЬ МЕНЮ');
gotoxy(30,22);
writeln('ESC',chr(27),'-ВЫХОД ИЗ ПРОГРАММЫ');
end;
 
{Книги}
Function Searchbook (topbook:TPinfbook; name,avtor:string):TPinfbook;
{осуществляет поиск элемента в  списке по названию и автору, возвращает указатель на найденный элемент}
var 
t:TPinfbook;{указатель на текущий элемент}
begin
t:=topbook;
while ((t<>nil) and not ((name=t^.name) and (avtor=t^.avtor))) do
t:=t^.r;
Searchbook:=t; 
end;
Function Searchbookbynumber (topbook:TPinfbook; invnom:string):TPinfbook;
{осуществляет поиск элемента в списке по инвентарному номеру, возвращает указатель на найденный элемент}
var 
t:TPinfbook;{указатель на текущий элемент}
begin
t:=topbook;
while (t<>nil) and (invnom<>t^.invnom) do
t:=t^.r;
Searchbookbynumber:=t;
end;
 
Function Searchreader (topreader:TPreader; fio:string; regnom:integer):TPreader;
{осуществляет поиск элемента в списке по Ф.И.О. и регистрационному номеру, возвращает указатель на найденный элемент}
var t:TPreader;{указатель на текущий элемент}
begin
t:=topreader;
while ((t<>nil) and not ((fio=t^.fio) and (regnom=t^.regnom))) do
t:=t^.r;
Searchreader:=t; 
end;
 
Procedure hline(stroka:byte); {рисует горизонтальные строки в таблице}
var
i:byte;
begin
gotoxy(1,stroka);
for i:=1 to 80 do
write(#205);
end;
 
Procedure vline(stolbec:byte); {рисует вертикальные строки в таблице}
var
i:byte;
begin
for i:=1 to 24 do begin gotoxy(stolbec,i); 
write(#186); 
end;
end;
 
Procedure Insertbook (n: TPinfbook; var top: TPinfbook); 
{создает список, вставляет в него запись} 
var
t,p:TPinfbook; {текущий и предыдущий указатели}
begin
n^.l:=nil;
n^.r:=nil;
t:=top;
p:=nil;
while (n^.name > t^.name) and (t<>nil) do begin
p:=t;
t:=t^.r;
end;
if p=nil then begin
n^.r:=t;
if t<>nil then
t^.l:=n;
top:=n;
end
else begin
if t<>nil then
t^.l:=n;
n^.r:=t;
p^.r:=n;
n^.l:=p;
end;
end;
 
Procedure Delbook(var topbook, t:TPinfbook);{удаляет элемент из списка}
topbook {- указатель на вершину, t  - указатель на удаляемый элемент}
var
p:TPinfbook;{указатель на предыдущий элемент}
s:TPinfbook;{указатель на следующий элемент}
begin
p:=t^.l;
s:=t^.r;
if t=topbook then {удаление элемента, стоящего на первом месте}
  begin
s^.l:=nil;
t^.r:=nil;
topbook:=s;
end
else {удаление из середины или конца списка}
begin
p^.r:=s;
if s<>nil then
s^.l:=p;
t^.l:=nil;
t^.r:=nil;
end;
dispose(t);
end;
 
Procedure Zaprosbook(var name, avtor:string ); {Запрос  автора и название книги}
begin
writeln('Введите название книги');
readln(name);
writeln('Введите автора');
readln(avtor);
end;
 
Procedure Zaprosinvnom(var invnom:string); 
{Запрос инвентарного номера книги} 
begin
writeln('Введите инвентарный номер книги'); 
readln(invnom);
end;
 
Procedure Zaprosreader(var fio:string;var regnom:integer ); {Запрос информации о читателе}
begin
writeln('Введите Ф.И.О.');
readln(fio);
writeln('Введите регистрационный номер');
readln(regnom);
end;
 
Procedure tablebook;{Рисует таблицу книг} 
var
i:byte;
begin
clrscr;
for i:=1 to 3 do hline(bookh[i]);
for i:=1 to 7 do
vline(bookv[i]);
gotoxy(1,1);
write(#201);
gotoxy(80,1);
write(#187);
gotoxy(1,24);
write(#200);
gotoxy(80,24);
write(#188);
for i:=2 to 6 do begin
gotoxy(bookv[i],1);
write(#203);
end;
for i:=2 to 6 do begin
gotoxy(bookv[i],24);
write(#202);
end;
for i:=2 to 6 do begin
gotoxy(bookv[i],4);
write(#206);
end;
gotoxy(1,4);
write(#204);
gotoxy(80,4);
write(#185);
gotoxy(5,2);
write('Название книги');
gotoxy(28,2);
write('Автор');
gotoxy(42,2);
write('Год');
gotoxy(40,3);
write('Издания');
gotoxy(48,2);
write('Инвент.');
gotoxy(49,3);
write('Номер');
gotoxy(56,2);
write('Кол-во');
gotoxy(65,2);
write('Издательство');
end;
 
Procedure  writebook (t: TPinfbook; i:byte);
{i - номер строки распечатка элемента списка уже в готовую таблицу} 
begin
with t^ do
begin
gotoxy(2,4+i);
write(name);
gotoxy(25,4+i);
write(avtor);
gotoxy(41,4+i);
write(god);
gotoxy(49,4+i);
writeln (invnom);
gotoxy(58,4+i);
writeln (kol);
gotoxy(65,4+i);
writeln (izd);
end;
end;
 
Procedure Vnesti;
{запрашивает данные с помощью процедуры Zapros, вносит их в базу с помощью процедуры Insertbook}
var
Pinfbook:TPinfbook;
Procedure Zapros(var infbook:Tinfbook ); 
begin
with infbook do begin
writeln('Введите название книги'); 
readln(name); 
writeln('Введите автора'); 
readln(avtor); 
writeln('Введите инвентарный номер');
readln(invnom); 
writeln('Введите год издания'); 
readln(god);
writeln('Введите название издательства'); 
readln(izd);
writeln('Введите количество книг');
readln(kol);
end;
end;
begin
clrscr;
new(Pinfbook);
Zapros(Pinfbook^);
Insertbook(Pinfbook,topbook);
end;
 
Procedure Vivod;{Выводит список на экран}
var t:TPinfbook; {указатель на текущий элемент}
i:byte;
begin
clrscr;
{перемещение по списку}
t:=topbook;
i:=1;
tablebook;
while t<>nil do begin
writebook(t,i);
gotoxy(2,25);
write ('Нажмите ENTER');
readln;
t:=t^.r;
i:=i+1;
end;
readkey;
end;
 
Procedure Search; {Процедура поиска книги} 
var
name, avtor:string;
t:TPinfbook;{указатель на искомый элемент}
begin
clrscr;
Zaprosbook(name,avtor); t:=Searchbook(topbook, name, avtor);
if t<>nil then begin
writeln('Книга найдена'); writebook(t,1); 
end
else
writeln('Книга не найдена'); 
readkey;
end;
 
Procedure Spisat; {По запросу удаляет данные из списка}
var
name, avtor:string;
t:TPinfbook;{указатель на удаляемый элемент}
begin
clrscr;
Zaprosbook(name,avtor); t:=Searchbook(topbook, name, avtor); 
if t<>nil then begin
Delbook(topbook,t); writeln('Книга удалена'); 
end
else
writeln('Книга не найдена'); 
readkey;
end;
 
Procedure Vidat;{Выдать книгу}
var
invnom,fio:string; 
regnom:integer;
pbook:TPinfbook;{указатель на найденный элемент в двусвязном списке книг}
preader:TPreader;{указатель на найденный элемент в двусвязном списке читателей}
begin
clrscr;
Zaprosinvnom(invnom);{Запросить инвентарный номер}
Zaprosreader(fio,regnom);
{Запросить Ф.И.О. читателя и регистрационный номер} preader:=Searchreader(topreader, fio, regnom); 
pbook:=Searchbookbynumber(topbook, invnom);
if (preader<>nil) and (pbook<>nil) then begin
if pbook^.kol<>0 then begin
if preader^.nom<6 then begin
pbook^.kol:=pbook^.kol-1; 
Preader^.spisok[Preader^.nom].name:=Pbook^.name;{обращение к номеру массива (карточке читателя)}
Preader^.spisok[Preader^.nom].avtor:=Pbook^.avtor;
writeln('Книга выдана'); Preader^.nom:=Preader^.nom+1;
end
else
writeln('Читатель не может взять более 5 книг');
end
else
writeln('Книга находится на руках');
end
else
writeln('Информация о книге и (или) читателе отсутствует'); 
readkey;
end;
 
Procedure Vozvrat; 
var
fio:string; regnom:integer;
r:TPreader;
i:integer;
b:TPinfbook;
begin
clrscr;
Zaprosreader(fio,regnom);
r:=Searchreader(topreader, fio, regnom);
if r<>nil then
if r^.nom>1 then begin
for i:=1 to (r^.nom)-1 do
begin b:=Searchbook(topbook,r^.spisok[i].name,r^.spisok[i].avtor);
 if b<>nil then
b^.kol:=b^.kol+1;
end;
r^.nom:=1;
writeln('Все книги возвращены');
end
else
writeln('У читателя нет книг')
else
writeln('Читатель не найден');
readkey;
end; 
 
{Читатели}
Procedure Insertreader(n: TPreader; var top: TPreader);
{создает список читателей, вставляет  в него запись}
var
t,p:TPreader;{ указатели на текущий и предыдущий элементы}
begin
n^.l:=nil;
n^.r:=nil;
t:=top;
p:=nil;
while (n^.fio > t^.fio) and (t<>nil) do begin
p:=t;
t:=t^.r;
end;
if p=nil then begin
n^.r:=t;
if t<>nil then
t^.l:=n;
top:=n;
end
else begin
if t<>nil then
t^.l:=n;
n^.r:=t;
p^.r:=n;
n^.l:=p;
end;
end;
 
Procedure Delreader(var topreader, t:TPreader);
{удаляет элемент из списка читателей}
{topbook – указатель на вершину t – указатель на удаляемый элемент}
var
p:TPreader;{указатель на предыдущий элемент}
s:TPreader;{указатель на следующий элемент}
begin
p:=t^.l;
s:=t^.r;
if t=topreader then {удаление элемента, стоящего на первом месте} 
begin
s^.l:=nil;
t^.r:=nil;
topreader:=s;
end
else {удаление из середины или конца списка}
begin
p^.r:=s;
if s<>nil then
s^.l:=p;
t^.l:=nil;
t^.r:=nil;
end;
dispose(t);
end;
 
Procedure tablereader; {таблица читателей}
var
i:byte;
begin
clrscr;
for i:=1 to 3 do
hline(readerh[i]);
for i:=1 to 4 do
vline(readerv[i]);
gotoxy(1,1);
write(#201);
gotoxy(80,1);
write(#187);
gotoxy(1,24);
write(#200);
gotoxy(80,24);
write(#188);
for i:=2 to 3 do begin 
gotoxy(readerv[i],1); 
write(#203);
end;
for i:=2 to 3 do begin
gotoxy(readerv[i],24);
write(#202);
end;
for i:=2 to 3 do begin
gotoxy(readerv[i],3);
write(#206);
end;
gotoxy(1,3);
write(#204);
gotoxy(80,3);
write(#185);
gotoxy(2,2);
write('Рег. номер');
gotoxy(26,2);
write('Ф.И.О.');
gotoxy(54,2);
write('Паспортные данные');
end;
 
Procedure writereader (t: TPreader; i:byte);{распечатка элемента списка}
begin
with t^ do
begin
gotoxy(2,3+i);
write(regnom);
gotoxy(23,3+i);
write(fio);
gotoxy(59,3+i);
write(pasport);
end;
end;
 
Procedure Registr;{Аналогично процедуре Vnesti}
var
Preader:TPreader; i:byte;
Procedure Zaprosreader(var reader:Treader ); 
begin
with reader do begin
nom:=1;{при регистрации читателя в библиотеке}
writeln('Введите фамилию, имя и отчество читателя'); 
readln(fio);
writeln('Введите регистрационный номер');
readln(regnom);
writeln('Введите паспортные данные');
readln(pasport);
end;
end;
begin
clrscr;
new(Preader);
Zaprosreader(Preader^);
Insertreader(Preader,topreader); 
end;
 
Procedure Readers;{Аналогично процедуре Vivod-вывод списка на экран}
var t:TPreader;{указатель на текущий элемент}
i:byte;
begin
clrscr;
{перемещение по списку}
t:=topreader;
i:=1;
tablereader;
while t<>nil do begin
writereader(t, i);
gotoxy(2,25);
write ('Нажмите ENTER');
readln;
t:=t^.r;
i:=i+1;
end;
readkey;
end;
 
Procedure Searchr; 
var fio:string;
i,regnom:integer;
t:TPreader;{указатель на искомый элемент}
begin
clrscr;
Zaprosreader(fio, regnom); t:=Searchreader(topreader, fio, regnom); 
if t<>nil then begin
tablereader;
writereader(t, 1);
gotoxy(1,25);
write('Хотите просмотреть список книг для этого читателя? y/n'); 
repeat
ch:=readkey;
until (ch='y')or (ch='n');
if ch='y' then begin
clrscr;
if t^.nom>1 then begin{если есть хотябы 1 книга в списке
при условии, что ch=y}
writeln('Список книг:');{Вывод списка книг у читателя}
for i:=1 to (t^.nom)-1 do begin
writeln(i,' Название книги: ', t^.spisok[i].name );
writeln('  Автор: ', t^.spisok[i].avtor );
end;
end
else
writeln('У него нет книг');
readkey;
end;
end
else begin
writeln('Читатель с такими данными отсутствует в списке ');
readkey;
end;
end;
 
Procedure Del;{По запросу удаляет данные из списка}
var
fio:string;
regnom:integer;
t:TPreader;{указатель на удаляемый элемент}
begin
clrscr;
Zaprosreader(fio,regnom); t:=Searchreader(topreader,fio, regnom); 
if t<>nil  then begin
if t^.nom=1 then begin Delreader(topreader,t); writeln('Читатель удален');
end
else
writeln('Читатель,имеющий книги на руках, не может быть удален');
end
else
writeln('Читатель не найден');
readkey;
end;
 
procedure file_bookspisok(var f:filebook;var top:TPinfbook);
var
n:TPinfbook;
buf:Tinfbook;
begin
reset(f);
top:=nil;
while not eof(f) do begin
read(f,buf);
new(n);
n^:=buf;
insertbook(n,top);
end;
end;
 
procedure bookspisok_file(var f:filebook;top:TPinfbook);
var
t:TPinfbook;
buf:Tinfbook;
begin
t:=top;
rewrite(f);
while t<>nil do begin
buf:=t^;
write(f,buf);
t:=t^.r;
end;
end;
 
procedure file_readerspisok(var f:filereader;var top:TPreader);
var
n:TPreader;
buf:Treader;
begin
reset(f);
top:=nil;
while not eof(f) do begin
read(f,buf);
new(n);
n^:=buf;
insertreader(n,top);
end;
end;
 
procedure readerspisok_file(var f:filereader;top:TPreader);
var
t:TPreader;
buf:Treader;
begin
t:=top;
rewrite(f);
while t<>nil do begin
buf:=t^;
write(f,buf);
t:=t^.r;
end;
end; 
 
{основная программа}
Begin assign(fbook,'library.dat');
{$I- отключение контроля операций ввода-вывода}
reset(fbook);
{$I+ включение контроля операций ввода-вывода}
if IOResult<>0 then
rewrite(fbook);
file_bookspisok(fbook,topbook);
assign(freader,'reader.dat');
{$I- отключение контроля операций ввода-вывода}
reset(freader);
{$I+ включение контроля операций ввода-вывода}
if IOResult<>0 then
rewrite(freader);
file_readerspisok(freader,topreader);
menu[1]:='  ВНЕСТИ ИНФОРМАЦИЮ О КНИГЕ ';{Ввод данных о книге}
menu[2]:='  ПРОСМОТР СПИСКА КНИГ    ';{Вывод информации о книге}
menu[3]:='  НАЙТИ КНИГУ     ';{Поиск книги}
menu[4]:='  СПИСАТЬ КНИГУ     ';{Удаление данных о книге}
menu[5]:='  ВЫДАТЬ КНИГУ   ';{Выдать книгу читателю}
menu[6]:='  ВОЗВРАТ КНИГИ     ';{Возврат книги в библиотеку}
menu[7]:='  РЕГИСТРАЦИЯ ЧИТАТЕЛЕЙ     ';{Ввод данных о читателе}
menu[8]:='  ПРОСМОТР СПИСКА ЧИТАТЕЛЕЙ    ';{Вывод списка читателей на экран}
menu[9]:='  НАЙТИ ЧИТАТЕЛЯ   ';{Поиск читателя}
menu[10]:=' УДАЛИТЬ ЧИТАТЕЛЯ     ';{Удаление из списка}
menu[11]:=' ВЫХОД    ';{Выход из программы}
gotoxy(35,8);
punkt:=1;
x:=26;
y:=8;
repeat
Menutoscr; 
ch:=ReadKey; 
if ch=chr(0) then
begin 
ch:=ReadKey; 
case  ch  of chr(80)  :{стрелка  вниз}
if (punkt<n) then
begin
gotoxy(x,y+punkt-1);
textattr:=norm;
write(menu[punkt]);
punkt:=punkt+1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
chr(72)  :{стрелка  вверх}
if punkt>1 then
begin
gotoxy(x,y+punkt-1);
textattr:=norm;
write(menu[punkt]);
punkt:=punkt-1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
end;
{case ...  of  }
end
else
if ch=chr(13)  then
{ нажата клавиша <Enter>}
begin
case  punkt  of
1   :   Vnesti;
2   :   Vivod ;
3   :   Search;
4   :   Spisat;
5:  Vidat;
6:  Vozvrat;
7:  Registr;
8:  Readers;
9:  Searchr;
10:  Del;
11:  ch: =chr (27);
выход
end;
end;
until  ch= chr(27) ;
{27  -  код <Esc>}
bookspisok_file(fbook, topbook);
readerspisok_file(freader, topreader);
close(fbook);
close(freader);
End.