Составить блок-схему программы работы со справочником компьютерной техники

program prog;
 
uses
  Crt;
 
type
  IBM = record 
    name: string[20];     //  Наименование устройства
    intrfc: string[15];      //  Интерфейс устройства(сокет, юсб)
    tip: string[15];     //  Тип устроства(внеш, внут) 
    opisanie: string[150];     //  Описание
  end;
 
var
  tmp: IBM;
  c, n, i, l, k: byte; 
  f: file of IBM;
 
procedure proc1(i: integer);
begin
  writeln('Введине кол-во записей: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Наименование: ');
    readln(tmp.name);
    write('Интерфейс: '); 
    readln(tmp. intrfc );
    write('Тип: '); 
    readln(tmp.tip );
    write('Описание: '); 
    readln(tmp. opisanie );
    writeln;
    write(f, tmp);     
  end;
end;
 
procedure Start1(i: integer);
begin
  assign(f, '1.dat');
  rewrite(f);
  close(f);
  writeln('файл записан');
end;
 
procedure Start2(i: integer);
begin
  assign(f, '1.dat');
  reset(f);
  writeln ('Наименование', 'Интерфейс':11, 'Тип':9, 'Описание':20);
  for i := 1 to FileSize(f) do
  begin
    read(f, tmp);
    writeln(tmp.name, tmp.intrfc:12, tmp.tip:15, tmp.opisanie:30);
  end;
  close(f);
end;
 
procedure proc2;
var
  n, i: byte;
begin
  reset(f);
  write('Удалить запись № ');
  readln(n);
  if (filesize(f) < n) or (n < 0) then
  begin
    writeln('В файле нет такой записи');
    close(f);
    readln;
  end
  else
  begin
    seek(f, n + 1);
    for i := n + 1 to filesize(f) - 1 do
    begin
      seek(f, i);
      read(f, tmp);
      seek(f, i - 1);
      write(f, tmp);
    end;
    
    truncate(f);
    close(f);
    writeln('Запись удалена');
  end;
  write('Press Enter...');
  readln;
end;
 
procedure proc3(i: integer);
begin
  assign(f, '1.dat');
  reset(f);
  seek(f, filesize(f));
  proc1(i);  
  close(f);  
end;
 
procedure proc4(i: integer);
begin
  var s: string;
  var z: boolean;
  z := true;
  writeln;
  write
  ('Введите наименование устройства: '); 
  readln(s);
  writeln;
  assign(f, '1.dat');
  reset(f);
  for i := 1 to filesize(f) do
  begin
    read(f, tmp);
    if tmp.name = s then
    begin
      writeln(tmp.name, tmp.intrfc:10, tmp.tip:4, tmp.opisanie:10);        
      writeln('Устройство найдено');
      z := false;
    end;
  end;
  if z
        then
    writeln('Устроство не найдено');
end;
 
procedure proc5(i: integer);
var
  y, x, sp: IBM;
var
  j: byte;
begin
  reset(f);
  for i := 0 to filesize(f) - 2 do
    for j := i + 1 to filesize(f) - 1 do
    begin
      seek(f, i);
      read(f, x);
      seek(f, j);
      read(f, y);
      if x.name > y.name then
      begin
        sp := x;
        x := y;
        y := sp;
        seek(f, i);
        write(f, x);
        seek(f, j);
        write(f, sp);
      end;
    end;
end;
 
 
begin
  c := 0;
  WriteLn('1 - Создать файл (таблицу)');
  WriteLn('2 - Работать с существующей таблицей');
  Writeln;
  Write('Выберите операцию: ');
  ReadLn(l);
   writeln;
  case l of
    1: Start1(i);
    2: Start2(i); 
  end;
  repeat
  writeln;
    WriteLn('1 - Перезапись');
    WriteLn('2 - Удаление');
    WriteLn('3 - Добавление');
    WriteLn('4 - Поиск по названию');
    Writeln('5 - Сортировка по имени');
    WriteLn('6 - Показать таблицу');
    WriteLn('0 - Выход');
    writeln;
    Write('Выберите операцию: ');
    ReadLn(k);
    case k of
      1:
        begin
          inc(c);
          assign(f, '1.dat');
          rewrite(f);
          proc1(c);
          close(f);
        end;
      2: proc2;
      3: proc3(i);
      4: proc4(i);
      5: proc5(i); 
      6: begin writeln; 
      Start2(i);
      end;
    end;
  until k = 0; 
end.