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

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of real;
     mas=array[1..nmax] of real;
procedure matrix(var a:mtr;var m,n,k:byte;c:char);
var i,j:byte;
begin
writeln('Matrica ',c);
repeat
writeln ('Kolichestvo strok ot 2 do ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Kolichestvo strok do ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Po kakomy pravily sozdat matricy 1-(i+j)/2 2-i*j/sqrt(27) k=');
readln(k);
until k in [1..2];
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if k=1 then a[i,j]:=(i+j)/2
    else a[i,j]:=i*j/sqrt(27);
    write(a[i,j]:6:2)
   end;
  writeln;
 end;
end;
procedure massiv(a:mtr;m,n:byte;var a1:mas;var k:byte);
var i,j:byte;
begin
i:=2;
k:=0;
while i<=m do
 begin
  k:=k+1;
  a1[k]:=0;
  for j:=1 to n do
  a1[k]:=a1[k]+a[i,j];
  i:=i+2;
 end;
writeln('Massiv sym chentnih strok');
for i:=1 to k do
write(a1[i]:6:2);
writeln
end;
 
var a,b:mtr;
    a1,b1:mas;
    m,n,k,l,p:byte;
begin
clrscr;
matrix(a,n,m,p,'A');
massiv(a,n,m,a1,p);
matrix(b,k,l,p,'B');
massiv(b,k,l,b1,p);
readln
end.