блок-схема для двумерного массива( по сделанной программе)

uses crt; 
var
gryz: array[1..7,1..3] of real; 
m,n,i,k,x,y:byte; 
sum,max,gr: real;
present: boolean; 
begin
write('Введите количество отправителей M (Не больше 7): '); readln(M);
write('Введите количество получателей N (Не больше 3): '); readln(N);
writeln;
if (m>7) or (n>3) then writeln('Ошибка') else 
begin 
for i:=1 to m do 
for k:=1 to n do 
begin 
write('Введите массу груза от ',i,'-го отправителя к ',K,'-му получателю: '); 
readln(gryz[i,k]); 
end;
writeln;
delay(1000);
write(' '); 
for i:=1 to n do 
write(i,' получатель '); к
writeln; 
for i:=1 to m do 
begin 
write(i,' отправитель '); 
for k:=1 to n do 
write(gryz[i,k]:1:2,' '); 
writeln; 
end; 
writeln;
for i:=1 to m do 
begin 
write('Сумма ',i,'-й строки: '); 
sum:=0; 
for k:=1 to n do 
sum:=sum+gryz[i,k]; 
writeln(sum:1:2); 
end; 
writeln;
for i:=1 to m do
begin
max:=-1;
for k:=1 to n do
if gryz[i,k]>max then begin max:=gryz[i,k]; x:=i; y:=k; end; 
writeln('Максимальный груз ',i,'-го отправителя: ',max:1:2,' его индексы: ',x,' ',y);
end;
writeln;
for i:=1 to n do
begin
max:=-1;
for k:=1 to m do
if gryz[k,i]>max then begin max:=gryz[k,i]; x:=i; y:=k; end;
writeln('Максимальный груз ',i,'-го получателя: ',max:1:2,' его индексы: ',y,' ',x); 
end;
writeln;
write('Введите массу груза для поиска: ');
readln(gr);
writeln('Индексы груза(ов) указанной массы: ');
present:=true; 
for i:=1 to m do 
for k:=1 to n do 
if gr=gryz[i,k] then begin writeln('Отправитель ',i,', получатель ',k); present:=false; end; //
if present then writeln('Груз данной массы отсутствует');
end; 
readln; 
end.