Составление блок-схемы

program HW;
uses crt;
Type mas=array[1..20,1..4] of integer;
var Mas20_4:mas;
    Mas4_4:mas;
    value:integer;
procedure InsertByRandom_Mas20_4(r_count:integer);
var i:integer;
    j:integer;
begin
     for i:= 1 to 20 do
     for j:= 1 to 4 do
         Mas20_4[i,j] := random(r_count);
end;
procedure print_Mas20_4 (var Mas20_4:mas);
var i:integer;
    j:integer;
begin
     writeln;
     writeln('It is Mas 20x4:');
     writeln;
     for i:= 1 to 20 do begin
     for j:= 1 to 4 do begin
        write(Mas20_4[i,j],'');
     end;
     writeln;
     end;
     writeln;
end;
procedure BuildMas4_4 (var Mas4_4,mas20_4:mas);
var i:integer;
    j:integer;
begin
     for i:= 1 to 20 do begin
     for j:= 1 to 4 do
         Mas4_4[i div 5, j] := Mas4_4[i div 5, j] + Mas20_4[i,j]
     end;
end;
procedure InsZerroInto_Mas4_4 (var Mas4_4:mas);
var i:integer;
    j:integer;
begin
   for i:= 1 to 4 do
       for j:= 1 to 4 do
       Mas4_4[i,j] := 0;
end;
procedure Print_Mas4_4 (var Mas4_4:mas);
var i:integer;
    j:integer;
begin
   writeln;
   writeln('It is Mas 4x4:');
   writeln;
   for i:= 1 to 4 do begin
       for j:= 1 to 4 do
       write(Mas4_4[i,j],'');
       writeln;
   end;
end;
begin
   Randomize;
   clrscr;
   write('Insert Max item value for Mas 20x4:');
   readln(value);
   InsertByRandom_Mas20_4(value);
   print_Mas20_4 (mas20_4);
   InsZerroInto_Mas4_4 (Mas4_4);
   BuildMas4_4 (Mas4_4,mas20_4);
   Print_Mas4_4 (Mas4_4);
   readln;
end.