Наименьший член последовательности заменить средним арифметическим всех членов

const
  csize=10;
 
type
  tarray=array [1..csize] of real;
 
var
  a:tarray;
  min,sr:real;
  i:byte;
  flag:boolean;
 
begin
  randomize;
  flag:=true;
  sr:=0;
  for i:=1 to csize do begin
    a[i]:=random(100)-50;
    if flag then begin
      min:=a[i];
      flag:=false;
    end;
    if min>a[i] then min:=a[i];
    sr:=sr+a[i]/csize;
    write(a[i]:5:0);
  end;
  writeln;
  sr:=sr/csize;
  for i:=1 to csize do begin
    if a[i]=min then begin
      a[i]:=sr;
      write(a[i]:7:2);
    end
    else write(a[i]:5:0);
  end;
  readln;
end.

program sfdsad;
uses crt;
const n = 6;
      m = 9;
var a : array[1..n, 1..m] of real;
    tmp1,tmp2 : array[1..m] of real;
    i,j : byte;
    max,min : real;
    maxi, mini : byte;
begin
     randomize();
 
     for i:=1 to n do
         for j:=1 to m do
             a[i,j] := random(20)+1;
             
     max := a[1,1];
     maxi := 1;
     min := a[1,1];
     mini := 1;
     for i:=1 to n do begin
         for j:=1 to m do begin
             if (a[i,j] > max) then begin
                max := a[i,j];
                maxi := i;
             end;
             if (a[i,j] < min) then begin
                min := a[i,j];
                mini := i;
             end;
             write(a[i,j]:2:0,' ');
         end;
         writeln;
     end;
     writeln('Max element: ',max,'[',maxi,']');
     writeln('Min element: ',min,'[',mini,']');
     for j:=1 to m do begin
         tmp1[j] := a[maxi,j];
         tmp2[j] := a[mini,j];
     end;
     for j:=1 to m do begin
         a[maxi,j] := tmp2[j];
         a[mini,j] := tmp1[j];
     end;
     for i:=1 to n do begin
         for j:=1 to m do
             write(a[i,j]:2:0,' ');
         writeln;
     end;
     readkey;
end.