Блок-схема к программе на Паскаль(структура записи, считывания)

[artemon16]

Здраствуйте форумчане!
Помогите пожалуйста сделать блок-схему к программе.
Условие задачи:
Опишите, используя структуру записи, школьный класс (фамилия, инициалы, дата рождения, месяц рождения, год рождения). Составьте программу, считывающую с клавиатуры данные об учащихся класса и выводящую на экран данные о днях рождения учащихся по месяцам, например:
Январь
12 Петров П.П.
23 Сидоров С.С.
28 Иванов И.И.

Текст программы который получился у меня:

program p1;
type Anketa=record
F:string[50];
I:string[50];
O:string[50];
Den:1..30;
Mes:1..12;
God:1..2009;
          end;
var
Student: Array[1..2] of anketa;l,i:integer;
begin
for i:=1 to 2 do
        with Student[i] do
        begin
          write('Фамилия');
          readln(F);
          write('Имя');
          readln(I);
          write('Отчество');
          readln(O);
          write('День');
          readln(den);
          write('Месяц');
          readln(mes);
          write('Год');
          readln(god);
        end;
for l:=1 to 12 do
        begin
        writeln(l);
        for i:=1 to 2 do
          begin
          if student[i].mes=l then
            begin
            write(student[i].den);
            write(student[i].f);
            write(' ',student[i].i[1],'.');
            write(' ',student[i].o[1],'.');
            writeln;
            end;
        end;
        end; readln;end.

[Stilet]

Есть куча программ рисующих блок-схемы.
Например BS1.0 тут была выложена.
Или качни FCEditor