Блок - схема к записям

program tt;
uses crt;
type Tkniga=record
name_avtor:string;
name_kniga:string;
name_izdatelstvo:string;
god_izdanija:integer;
data_postuplenia:integer;
end;
Tfile=file of Tkniga;
var
kniga:Tkniga;
f:Tfile;
ch:char;
fname:string;
izd_:string;
god_:integer;
 
procedure enter(fname:string);
var
ch1:char;
begin
ClrScr;
{$I-}
assign(f,fname);
reset(f);
{$I+}
if IOResult<>0 then begin writeln('Фаил не найден он был создан!'); rewrite(f);end;
while ch1<>'н' do begin
seek(f,filesize(f));
write('Ф.И.О автора: ');
readln(kniga.name_avtor);
write('Название книги: ');
readln(kniga.name_kniga);
write('Название издательства: ');
readln(kniga.name_izdatelstvo);
write('Год издания: ');
readln(kniga.god_izdanija);
write('Год поступления: ');
readln(kniga.data_postuplenia);
write(f,kniga);
writeln('Повторить ввод? (д/н)');
readln(ch1);
end;
close(f);
writeln('Записи добавлены! Для возврата в меню Enter');
readln;
end;
 
procedure find(fname:string;izd:string;god:integer);
var
k:boolean;
god1,god2:integer;
begin
ClrScr;
k:=false;
{$I-}
assign(f,fname);
reset(f);
{$I+}
god1:=god-5;
god2:=god;
if IOResult<>0 then writeln('Фаил не найден!')else
while not eof(f) do begin
read(f,kniga);
if (kniga.name_izdatelstvo=izd) and (kniga.data_postuplenia<=god2)and(kniga.data_postuplenia>=god1) then begin
k:=true;
writeln('Ф.И.О автора: ',kniga.name_avtor);
writeln('Название книги: ',kniga.name_kniga);
write('Название издательства: ',kniga.name_izdatelstvo);
writeln('Год издания: ',kniga.god_izdanija);
writeln('Год поступления: ',kniga.data_postuplenia);
end;
end;
if k=false then writeln('Записи не найдены!');
writeln('Для влзврата в меня нажмите Enter');
readln;
end;
 
BEGIN
repeat
ClrScr;
writeln('1.Добавить запись');
writeln('2.Поиск');
writeln('3.Выход');
ch:=readkey;
case ch of
#49:begin
writeln('Введите имя файла, если он не существует, то он будет создан');
readln(fname);
enter(fname);
end;
#50:begin
writeln('Введите имя файла');
readln(fname);
writeln('Введите издание');
readln(izd_);
writeln('Введите текущий год');
readln(god_);
find(fname,izd_,god_);
end;
end;
until ch=#51;
END.