Построение блок-схем

Program bd;
Uses
     CRT;
type
     Svedeniya=Record
     FIO:string[11];
     Data:String[10];
     Machi,Peredachi,NARUSH,Matchi:string[9];
    end;
    Var
    f:file of Svedeniya;
    Teh:array[1..100] of Svedeniya;
    Num,i,Sel,x,v,err,numer:integer;
Procedure Shapka;
    Begin
    writeln;
    Writeln('  ???????????????????????????????????????????????????????????????':73);
    Writeln('  ?    Ф.И.О   ?  ДАТА  ?ЗАБИТЫЕ?ГОЛЕВЫЕ ?ШТРАФНОЕ? КОЛИЧЕСТВО  ?':73);
    Writeln('  ?            ?РОЖДЕНИЯ?  МЯЧИ ?ПЕРЕДАЧИ? МАТЧЕЙ ?   МАТЧЕЙ    ?':73);
    Writeln('  ???????????????????????????????????????????????????????????????':73);
END;
Procedure Print;
          Begin
             Shapka;
             for i:=1 to num do
                    begin
                    With Teh[i] do
                        begin
                        Write('          ?',FIO:9,'   ?');
                        Write(data:8,'?');
                        write(Machi:7,'?');
                        Write(Peredachi:8,'?');
                        write(NARUSH:8,'?');
                        write(Matchi:13,'?');
                        writeln;
                     End;
                    end;
                     Writeln('          ???????????????????????????????????????????????????????????????');
                     writeln('                     Нажмите любую клавишу для выхода в меню.');
                     Readkey;
                     end;
Procedure Chit;
          Begin
          clrscr;
          writeln;
          writeln('                               <<<ЧТЕНИЕ ИЗ ФАЙЛА>>>');
          writeln;
          Assign(F,'C:\Learn\Language\Work\2pvt\2-grup\vasil\1.dat');
            {$I-}
            Reset(F);
            {$I+}
                  If IOResult<>0 then
                     Begin
                          writeln('            Файл не найден!Создайте файл через "ввод новых данных"...');
                          Readkey;
                          exit;
                       End
                           else
                           num:=0;
                           While not Eof(F) do
                                       Begin
                                       inc(num);
                                       read(f,teh[num]);
                                       end;
                                       close(f);
                                       writeln('                                 Записей в файле: ',Num);
                                       writeln('           После нажатия любой клавиши - записи будут показаны на экране.');
                                       readkey;
                                       Print;
                           end;
Procedure Dopolnenie;
Var
AddNum:integer;
begin
Assign(F,'C:\Learn\Language\Work\2pvt\2-grup\vasil\1.dat');
            {$I-}
            Reset(F);
            {$I+}
                  If IOResult<>0 then
                     Begin
                          writeln('            Файл не найден!Создайте файл через "ввод новых данных"...');
                          Readkey;
                          exit;
                       End
                           else
write('Введите кол-во добавляемых записей: ');
readln(AddNum);
for i:=1 to Addnum do
begin
inc(num);
writeln;
                         writeln('Запись ',num,'-я');
                         With Teh[num] do
                         begin
                         repeat
                         Write('Введите ФИО игрока: ');
                         readln(FIO);
                         val(FIO,v,err);
                         if v<>0 then
                         writeln('Неверно!Повторите ввод:');
                         Until v=0;
                         repeat
                         Write('Введите дату рождения игрока: ');
                         readln(data);
                         val(Data,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите число забитых мячей: ');
                         readln(Machi);
                         val(Machi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите кол-во передач: ');
                         readln(Peredachi);
                         val(Peredachi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Количество нарушений: ');
                         readln(NARUSH);
                         val(NARUSH,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         repeat
                         Write('Введите число забитых мячей: ');
                         readln(Matchi);
                         val(Matchi,v,err);
                         if err<>0 then
                         writeln('Неверно!Повторите ввод:');
                         until err=0;
                         End;
                         seek(f,filesize(f));
                         write(f,Teh[num]);
                         end;
                         Close(f);
                         end;
procedure delit;
Var
m:longint;
begin
i:=0;
Assign(F,'C:\Learn\Language\Work\2pvt\2-grup\vasil\1.dat');
 {$I-}
            Reset(F);
            {$I+}
                  If IOResult<>0 then
                     Begin
                          writeln('            Файл не найден!Создайте файл через "ввод новых данных"...');
                          Readkey;
                          exit;
                       End
                           else
repeat
writeln('Введите номер элемента который следует удалить: ');
readln(numer);
if (numer<=0) or (numer>=num) then
writeln('     Введён ноль или неверно указано количество записей!!!!!!!!!!!!!');
until (numer>0) and (numer<=num);
m:=filesize(f)-numer;
seek(f,numer);
while not eof(F) do
begin
inc(num);
read(f,teh[num]);
i:=i+1;
end;
close(f);
reset(f);
seek(f,numer-1);
truncate(f);
close(f);
reset(f);
seek(f,numer-1);
for i:=1 to m do
write(f,teh[num]);
end;
                         procedure Menu;
                         begin
                         textcolor(3);
                         repeat
                         clrscr;
                         writeln;
                         Writeln('                ???????????????????????????????????????????????????');
                         writeln('                ?               <<<МЕНЮ ПРОГРАММЫ>>>              ?');
                         writeln('                ?      -------------------------------------      ?');
                         writeln('                ?            1. Чтение записей из файла.          ?');
                         writeln('                ?            2. Добавление записей в файл.        ?');
                         writeln('                ?            3. Удаление записей из файла.        ?');
                         writeln('                ?            0. Выход из программы.               ?');
                         writeln('                ?      -------------------------------------      ?');
                         Writeln('                ???????????????????????????????????????????????????');
                         write('                                    Ваш выбор >>> ');
                         {$I-}
                         Readln(sel);
                         {$I+}
                         if (ioresult<>0) then
                         begin
                         END
                         Else
                         case Sel of
                           1: Chit;
                           2: Dopolnenie;
                           3: Delit;
                           0: Halt;
                           end;
             until False;
end;
begin
textcolor(4);
Menu;
end.