Помогите построить блок-схему к задаче

{Решить задачу о количестве вызовов на АТС, используя три процедуры:
1) для определения количества вызовов за каждую секунду;  (Kolvyzov)
2) для вычисления количества вызовов за первые 10 секунд; (Summavyzov)
3) для определения наибольшего количества вызовов за некоторую секунду (MaxKolvyzov) }
program ATS1;
Uses Crt;
type vyzov=array[1..10] of integer;
var  y:vyzov;
     max,s:integer;
procedure  Kolvyzov(var y:vyzov); {Процедура Kolvyzov}
var i:integer;                    {определяет количество вызовов}
begin
    for i:=1 to 10 do
    begin
    y[i]:=random(i);
    writeln ('y(',i,')= ',y[i]:5);
    end;
end;
procedure Summavyzov(y:vyzov;var s:integer);{Процедура вычисляет количество вызовов}
var i:integer;   {За первые 10 секунд}
begin
   s:=0;
   for i:=1 to 10 do s:=s+y[i];
   writeln ('Сумма вызовов S= ',s:3);
end;
procedure MaxKolvyzov(y:vyzov;var max:integer);
var i:integer; {Процедура MaxKolvyzov определяет}
begin          {наибольшее количество вызовов}
   max:=y[1];  {за некоторую секунду}
   for i:=2 to 10  do
       if max<y[i] then max:=y[i];
       write('Максимально количество вызовов за одну');
       writeln('секунду равно',max:3)
end;
begin
  ClrScr;
  randomize;
  Kolvyzov(y);         {Вызываем процедуру Kolvyzov}
  Summavyzov(y,s);     {Вызываем процедуру Summavyzov}
  MaxKolvyzov(y,max);  {Вызываем процедуру MaxKolvyzov}
  readln
end.