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

program Dostup;
  uses crt;
  type TRights=set of (RRead,RWrite,RGrant); { Виды прав }
  const FullRights: TRights=[RRead,RWrite,RGrant]; { Полные права }
        MaxObj=5; { Число объектов }
        MaxUsers=6; { Число пользователей }
        MaxPass=32;{сам пароль}
  var Users: array [1..MaxUsers] of string[20]; { Имена пользователей }
      UserRights: array [1..MaxObj,1..6] of TRights; { Права пользователей }
      i,j,CurrUser: byte; { Счетчики, номер текущего пользователя }
      SCommand: string[20]; { Текущая команда или имя пользователя }
      tmpRight: TRights; { Временное хранилище типа передаваемых прав }
      l: integer;{пароль}
begin
  clrscr;
  { Инициализируем пользователей }
  Users[1]:='Оксана';
  Users[2]:='Женя';
  Users[3]:='Игорь';
  Users[4]:='Настя';
  Users[5]:='Андрей';
  Users[6]:='Лена';
  { Инициализируем права - первый пользователь - админ }
  randomize;
  for i:=1 to MaxObj do begin
    UserRights[i,1]:=FullRights;
    for j:=2 to MaxUsers do begin
      UserRights[i,j]:=[];
      if random(2)=1 then UserRights[i,j]:=UserRights[i,j]+[RRead];
      if random(2)=1 then UserRights[i,j]:=UserRights[i,j]+[RWrite];
      if random(2)=1 then UserRights[i,j]:=UserRights[i,j]+[RGrant];
    end;
  end;
  { Главный цикл - по пользователям }
  CurrUser:=0;
  repeat
    write('Имя пользователя: ');
    readln(SCommand);
    begin 
 writeln('Введите пароль'); 
 read(l); 
 if Users[1]:l=1234 then writeln('Верно'); 
 if l<>1234 then writeln('Пароль неправельный'); 
end;
    { Проверяем выход}
    if SCommand='выход' then break;
    { Проверяем вход пользователя }
    for i:=1 to MaxUsers do
      if Users[i]=SCommand then begin
        CurrUser:=i;
        break;
      end;
    if CurrUser=0 then
      writeln('Неправильное имя пользователя!')
    else begin { Успешный вход }
      { Выводим права }
      for i:=1 to MaxObj do begin
        write('Объект ',i,': ');
        if UserRights[i,CurrUser]=[] then { Нет прав }
          write('Запрет')
        else if UserRights[i,CurrUser]=FullRights then { Полные права }
          write('Полные права')
        else begin
          if RRead in UserRights[i,CurrUser] then write('Чтение, ');
          if RWrite in UserRights[i,CurrUser] then write('Запись, ');
          if RGrant in UserRights[i,CurrUser] then write('Передача, ');
          GotoXY(WhereX-2,WhereY);
          write('  ');
        end;
        writeln;
      end;
      { Цикл по командам пользователя }
      repeat
        write('Жду ваших указаний >');
        readln(SCommand);
        { Проверяем команды }
        if SCommand='выход' then break { Выход }
          else if (SCommand='чтение') or (SCommand='запись') or (SCommand='передача') then begin
            write('Над каким объектом производится операция? ');
            readln(j);
            { Проверим диапазон }
            if j>MaxObj then writeln('Нет такого объекта') else
            begin
              { Команда read }
              if SCommand='чтение' then
                if RRead in UserRights[j,CurrUser] then
                  writeln('Операция прошла успешно') else writeln('Отказ. Нет прав');
              { Команда write }
              if SCommand='запись' then
                if RWrite in UserRights[j,CurrUser] then
                  writeln('Операция прошла успешно') else writeln('Отказ. Нет прав');
              { Команда grant }
              if SCommand='передача' then
                if RGrant in UserRights[j,CurrUser] then begin
                  write('Какое право передается? ');
                  readln(SCommand);
                  { Проверим команды }
                  if (SCommand='чтение') or (SCommand='запись') or (SCommand='передача') then begin
                    { Запомним передаваемое право }
                    if SCommand='чтение' then tmpRight:=[RRead] else
                      if SCommand='запись' then tmpRight:=[RWrite] else tmpRight:=[RGrant];
                    write('Какому пользователю передается право? ');
                    readln(SCommand);
                    { Найдем пользователя }
                    i:=1;
                    while i<=MaxUsers do begin
                      if Users[i]=SCommand then break;
                      inc(i);
                    end;
                    { Если пользователь не найден выведем сообщение }
                    if i>MaxUsers then
                      writeln('Неправильное имя пользователя!')
                    else begin{ Иначе передадим права }
                      UserRights[j,i]:=UserRights[j,i]+tmpRight;
                    end;
                  end else
                    writeln('Неправильно задан вид прав');
                end else writeln('Отказ. Нет прав');
            end;
          end else
            writeln('Неверная команда');
      until false;
      CurrUser:=0;
    end;
  until false;
  { Завершение работы }
  writeln('Пока!');
end.