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

program Sergey; 
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.

program Bulat;
uses crt;
type str_f=record
gr,zach: string[6];
FIO: string[30];
pred1,pred2: string[15];
oz1,oz2: integer;
sr_ball: real;
End;
Var z: str_f;
    f: file of str_f;
    Key: char;
    Sum: real;
    gr1: string;
    i,K,M: byte;
 
Procedure Dop;
Begin
Clrscr;
reset(f);
seek (f, filesize(f));
Repeat
Writeln ('ўўҐбвЁ ¤***лҐ');
Write ('ѓагЇЇ* -'); readln (z.Gr);
Write ('”.?.Ћ. -'); readln (z.FIO);
Write ('ь §*з. -'); readln (z.Zach);
Write ('ЏаҐ¤¬Ґв 1 -'); readln (z.pred1);
Write ('ЋжҐ*Є* 1 -'); readln (z.oz1);
Write ('ЏаҐ¤¬Ґв 2 -'); readln (z.pred2);
Write ('ЋжҐ*Є* 2 -'); readln (z.oz2);
z.Sr_ball :=(z.oz1+z.oz2)/2;
Writeln ('Sr_ball-', z.sr_ball:4:2);
Write (f, z);
Writeln ('‚ўҐ¤ЁвҐ б«Ґ¤го饥 §**зҐ*ЁҐ (…б«Ё *Ґв, в® <esc>)-');
Until readkey=#27;
Close (f);
End;
 
Procedure Poisk;
Begin
Write ('‚ўҐ¤ЁвҐ *®¬Ґа ЈагЇЇл - ');
Readln (gr1);
sum:=0;
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.zach:11,'|',z.FIO:14,'|',z.sr_ball:14:2,'|');
Writeln ('_______________________________________________');
          Sum:=sum+z.sr_ball;
     End;
End;
Sum:=sum/k;
Writeln ('', sum:3:2);
Close (f);
Readln;
End;
Begin
assign(f,'c:\file.dat');
      Repeat
      Writeln ('1- ᮧ¤**ЁҐ');
      Writeln ('2- ¤®Ї®«*Ґ*ЁҐ');
      Writeln ('3- Ї®ЁбЄ');
      Writeln ('4- ўл室');
      Readln (m);
      Case m of
      3: poisk;
      2: dop;
      1: begin rewrite(f);dop; end;
      End;
      Until m=4;
End.