Найти в каждой строке матрицы среднее арифметическое и поставить его на место минимума строки

program pr3;
uses crt;
var i,j,m,n:integer; B:array[1..5,1..5] of real; sr,min1,min2:real;
begin clrscr; randomize; n:=5;
writeln('Исходный массив:');
 for i:=1 to n do begin
sr:=0; min2:=10; m:=0;
 for j:=1 to n do begin
B[i,j]:=random(10);
min1:=B[i,j];
 if min2>min1 then begin
min2:=min1; m:=j; end;
sr:=sr+B[i,j];
write(B[i,j]:5:2); end;
sr:=sr/n;
B[i,m]:=sr;
writeln('    ',sr:5:2); end;
writeln('Результат:');
 for i:=1 to n do begin
 for j:=1 to n do
write(B[i,j]:5:2,' '); writeln; end;
readkey; end.

const
  nmax=10;
var
  a: array[1..nmax,1..nmax] of real;
  b: array[1..nmax] of real;
  n,m,i,j,jmin: integer;
  s,t: real;
begin
  repeat
    write('Ââåäèòå ðàçìåðû ìàòðèöû (n<=10; m<=10): ');
    readln(n,m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('a[',i,',',j,']=');
      readln(a[i,j]);
    end;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    s:=0; jmin:=1;
    for j:=1 to m do
    begin
      write(a[i,j]:8:2);
      if a[i,j]<a[i,jmin] then jmin:=j;
      s:=s+a[i,j];
    end;
    b[i]:=s/m;
    a[i,jmin]:=b[i];
    writeln;
  end;
  writeln('Ìàññèâ ñðåäíèõ çíà÷åíèé:');
  for i:=1 to n do write(b[i]:8:2);
  writeln;
  for i:=2 to n do
    for j:=n downto i do
      if b[j-1]<b[j] then
      begin
        t:=b[j-1];
        b[j-1]:=b[j];
        b[j]:=t;
      end;
  writeln('Óïîðÿäî÷åííûé ìàññèâ:');
  for i:=1 to n do write(b[i]:8:2);
  writeln;
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:8:2);
    writeln;
  end;
  readln;
end.

writeln('Введите размерность массива:');
readln(m);
readln(n);
writeln('Введите исходный массив:');
 for j:=1 to m do
 for i:=1 to n do begin
gotoxy(i*4,j+5);
readln(A[i,j]);