Создать три блок-схемы по исходному коду задачи.

program Bulat;
uses crt;
type str_f=record
gr: string[6];
FIO: string[30];
zach: string[6];
pred1:  string[15];
oz1: byte;
pred2: string[15];
oz2: byte;
sr_ball: real;
End;
Var z: str_f;
    f: file of str_f;
    Sr_ball: real;
    i: byte;
    Key: char;
    Sum: real;
    gr1: string;
    K: byte;
    M: byte;
Procedure Dop;
Begin
Clrscr;
Assign (f,'a: \file.dat');
Reset (f); seek (f, filesize (f)-1);
Repeat
Writeln ('Ввести данные');
With z do
Begin
Write ('Группа -'); readln (Gr);
Write ('Ф.И.О. -'); readln (FIO);
Write ('№ зач. -'); readln (Zach);
Write ('Предмет 1 -'); readln (pred1);
Write ('Оценка 1 -'); readln (oz1);
Write ('Предмет 2 -'); readln (pred2);
Write ('оценка 2 -'); readln (oz2);
Sr_ball :=( oz1+oz2)/2;
Writeln ('Sr_ball-', sr_ball:4:2);
End;
Write (f, z);
Writeln ('Введите следующее значение (Если нет, то <esc>)-');
Until readkey=#27;
Close (f);
End;
Procedure Poisk;
Begin
Write ('Введите № группы - ');
Readln (gr1);
{For i:= 0 to filesize(f)-1 do begin
Seek (f, I);
Read (f, z);
End ;}
k:=0;
Writeln (' - ',gr1);
Writeln ('______________________________________________________');
Writeln ('| № | № зачетки | Ф.И.О. | Средний балл|');
Writeln ('______________________________________________________');
Reset (f);
For i:=1 to filesize(f) do
Begin
     Read (f, z);
     If (z.gr=gr1) then
     Begin
          K:=k+1;
          writeln('|',k:4,'|',z.Nzach:11,'|',z.FIO:14,'|',z.sr_ball:14:2,'|;
Writeln ('______________________________________________________');
Reset (f);
 
          Sum:=sum+z.sr_ball;
     End;
End;
Sum:=sum/k;
Writeln ('', sum:3:2);
Close (f);
Readln;
End;
Begin
      Repeat
      Writeln ('1- создание’);
      Writeln ('2- дополнение');
      Writeln ('3- поиск');
      Writeln ('4- выход’);
      Readln (m);
      Case m of
      3: поиск;
      2: доп.;
      1: begin rewrite (f); dop; end;
      End;
      Until m=4;
End.