Помогите, пожалуйста, нарисовать блок схему.

Минзида в категроии Информатика, вопрос открыт 28.06.2018 в 23:12

Вот задача.
type bibl=record
fam:string;
naz:string;
god:integer;
end;
var
f:textfile;
i,c:integer;
a:array[1..100] of bibl;
begin
assignfile(f,'bibl.txt');
reset(f);
i:=1;
while not eof(f) do
begin
readln(f,a[i].fam);
readln(f,a[i].naz);
readln(f,a[i].god);
i:=i+1;
end;
Memo1.Lines.Clear;
Memo1.Lines.Add('Книги, изданные с 1960 года:');
for i:=1 to 8 do
if (a[i].god>=1960) then begin
Memo1.Lines.Add(a[i].naz);
Memo1.Lines.Add(a[i].fam);
Memo1.Lines.Add(IntToStr(a[i].god));
Memo1.Lines.Add(' ');
end;

Memo1.Lines.Add(' ');
Memo1.Lines.Add('Автор книги информатика:');
for i:= 1 to 8 do
if (a[i].naz='информатика') or (a[i].naz='информатика') then
Memo1.Lines.Add(a[i].fam);
Memo1.Lines.Add('Год издания:');
i:=2;
Memo1.Lines.Add(IntToStr(a[i].god));


closefile(f);
end;
end.