нужна блок-схема по готовому массиву

[марина111]

задача:выполнить обработку элементов прямоугольной матрицы A,имеющей N строк и M столбцов.дан номер строки L и номер столбца K при помощи которых исходная матрица разбивается на 4 части.найти среднее арифметическое элементов каждой части.

а вот задача сама

Program marina;
Uses crt;
type
mass= array [1..100, 1..100] of integer;
var L,K,N,M,i,j,k1,k2,k3,k4 : integer;
s1,s2,s3,s4,sr1,sr2,sr3,sr4,P : real;
A:mass;
begin
clrscr;
randomize;
writeln('vvedite chislo strok N');
readln(N);
writeln('vvedite chislo stolbcov M');
readln(M);
writeln('vvedite L');
readln(L);
writeln('vvedite K');
readln(K);
for i:= 1 to N do
for j:= 1 to M do
A[i,j]:=random(25);
s1:=0;
s2:=0;
s3:=0;
s4:=0;
k1:=0;
k2:=0;
k3:=0;
k4:=0;
for i:= 1 to N do
for j:= 1 to M do
begin
if(i>L)and(j<K) then
begin
s3:=s3+A[i,j];
k3:=k3+1;
end;
if(i>L)and(j>K) then
begin
s4:=s4+A[i,j];
k4:=k4+1;
end;
if(i<L)and(j<K) then
begin
s1:=s1+A[i,j];
k1:=k1+1;
end;
if(i<L)and(j>K) then
begin
s2:=s2+A[i,j];
k2:=k2+1;
end;
if(j=M) then writeln (' ',A[i,j]) else write (' ',A[i,j]);
end;
writeln(s1,' ',k1);
sr1:=s1/k1;
sr2:=s2/k2;
sr3:=s3/k3;
sr4:=s4/k4;
writeln(‘sr1=’ ,sr1, ' ', ‘sr2=’ ,sr2 ,' ', ’sr3=’, sr3, ' ' ,’sr4=’,sr4);
readln;
end.