Господа помогите, вопрос об отчислении. На этот кусочек программы надо сделать блок-схем.

begin
WriteLn;
WriteLn('1. Ввод имени файла.');
WriteLn('2. Ввод данных в массив.');
WriteLn('3. Запись данных из массива.');
WriteLn('4. Ввод данных в массив из файла.');
WriteLn('5. Обработка данных в массиве.');
Writeln('6. Просмотр данных в виде диаграммы.');
Writeln('7. Выход.');
Writeln;
Repeat
Write('Введите цифру(1-7): '); Readln(mark);
Until (mark=1) or (mark=2) or (mark=3) or (mark=4) or (mark=5) or (mark=6) or (mark=7);
If mark=1 Then file_name;
If mark=2 then input_mass;
If mark=3 then zapis_file;
If mark=4 then zapis_mass;
If mark=5 then obrabotka;
If mark=6 then look_diagr;
If mark=7 then halt;
end;

cherviack@mail.ru на всякий случай

нда...
любой поисковик "построение блок-схем алгоритма"
несколько прямоугольничков и ромбиков со стрелочками

Добавлено спустя 3 минуты, 9 секунд:
В принципе бывают готовые программы для анализа кодов программы и построения блок-схем, но чаще всего они либо платные, либо написаны в качестве диплома или курсовика.