Составить программу и блок схему

Program asd;
Const n=3; m=3;
Var A:array[1..n, 1..m] of integer;
i,j,s,s1,k:integer; sr:real;
BEGIN
  Writeln('Массив А: ');
 For i:=1 to n do
  begin
   s:=0;
   for j:=1 to m do
    begin
    A[i,j]:=Random(10);
    Write(A[i,j]:2);
    s:=s+A[i,j];
      sr:=s/i;
    end;
    Writeln;
  end;
  Writeln;
 k:=0;
  For i:=1 to n do
   begin
   s1:=0;
    for j:=1 to m do
      
      If A[i,j]>sr then
      begin
      inc(k);
      s1:=s1+A[i,j];
   end;
     
     Writeln('Сумма строки №',i,' : ',s1);
   end;
   Writeln('Сред. ариф. массива: ',sr:2:2);
    Writeln('Количество: ',k);
END.

Var
  m,n,i,j,max,min,imx,imn,jmn,jmx,k,p:integer;
  s:real;
  a:array[,]of integer;
begin
write('Число строк: ');
readln(m);
write('Число столбцов: ');
readln(n);
setlength(a,m+1,n+1);
for i:=1 to m do
  begin
  writeln('Вводите элементы строки ',i,' по одному');
  for j:=1 to n do    readln(a[i,j]);
  end;
min:=a[1,1];
max:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to m do
  for j:=1 to n do
    begin
    if a[i,j]<min then
      begin
      min:=a[i,j];
      imn:=i;
      jmn:=j;
      end;
    if a[i,j]>max then
      begin
      max:=a[i,j];
      imx:=i;
      jmx:=j;
      end;
    end;
p:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=p;
writeln('Измененный массив:');
for i:=1 to m do
  begin
  for j:=1 to n do    write(a[i,j]:5);
  writeln;
  end;
write('Введите номер строки: ');
readln(i);
for j:=1 to n do
  if a[i,j]<0 then
    begin
    s:=s+a[i,j];
    k:=k+1;
    end;
writeln('Ср.ариф. отр.чисел в строке: ',s/k);  
end.