Блок-схема

[Ratimur]

Помогите с созданием блок-схемы по программе! Вот условие и сама программа: Дан двумерный массив N*M. Определите произведение элементов, значения которых не кратны заданному числу F. Найти частное от деления максимального элемента массива и элемента с номером L. Упорядочить элементы массива по убыванию. Для отладки программы исходный массив сформировать с помощью генератора случайных чисел.

program ppp;
uses crt;

var
   n,m,p,i,j,k,f,x,max,y,g:integer;
   a:array[1..100,1..100] of integer;
   ch:real;
begin clrscr;      randomize;
write('vvedite razmer matrici n,m='); read(n) ;read(m);
   for i:=1 to n do
      for j:=1 to m do
         a[i,j]:=random(20)+1;
writeln('isxodnaya matriza*');
          for i:=1 to n do
   begin
      for j:=1 to m  do
         write(a[i,j]:4);
           writeln;
     end;
  
  write('vvedite chislo f='); read(f);
p:=1;
  for i:=1 to n do
      for j:=1 to m do
    if a[i,j] mod f <>0 then p:=p*a[i,j];
 
  writeln;
  writeln('Proizved chisel ne kratnix',p:10);

 max:=a[1,1];
  for i:=1 to n do begin
    for j:=1 to m do 
      if a[i,j]>max then begin
        max:=a[i,j];
        end;
        end;
        writeln('Maximalni element=',max);

write('vvedite nomer elementa i,j='); read(y) ;read(g);   
if (y>n) or (g>m) then writeln ('znachenia ne vxodyat v diapazon') else begin
ch:=max/a[y,g];
writeln('Chastnoe ot delenia max na L=',ch);
end;

for i:=1 to n do
  for j:=1 to m-1 do
   for k:=j+1 to m do
    if a[i,j]>a[i,k] then
     begin
      x:=a[i,j];
      a[i,j]:=a[i,k];
      a[i,k]:=x;
     end;
 writeln('sortirovannaya matriza ');
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(a[i,j]:4);
   writeln;
   end;
end.

Оформляйте код по правилам: http://www.programmersforum.ru/showp...23&postcount=4