Замените в матрице минимальный элемент на среднее арифметическое элементов главной диагонали

const
  nmax=100;
  n=5;
  m=5;
  type
  matrix=array[1..nmax,1..nmax] of integer; 
var
  z:matrix;
   i,j:integer; 
egin
 randomize;
 writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        z[i,j]:=random(25);
        write(z[i,j]:4);

uses crt;
const n=5;
var a:array[1..n,1..n] of real;
    i,j,imn,jmn:byte;
    sr,mn:real;
begin
randomize;
writeln('Исходный массив:');
a[1,1]:=10*random;{определим первый элемент}
sr:=a[1,1];{начальное значение суммы}
imn:=1;
jmn:=1;
mn:=a[1,1];{пока он минимальный}
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i+j>2 then a[i,j]:=10*random;{генерируем остальные}
    write(a[i,j]:6:2);
    if j=i then sr:=sr+a[i,j];{считаем сумму на гл. диагонали}
    if a[i,j]<mn then{ищем минимум}
     begin
      mn:=a[i,j];
      imn:=i;
      jmn:=j;
     end;
   end;
  writeln;
 end;
writeln;
sr:=sr/n;
writeln('Среднее элементов главной диагонали=',sr:0:2);
writeln('Минимальный элемент a[',imn,',',jmn,']=',mn:0:2);
writeln;
writeln('Замена минимального на среднее:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i=imn)and(j=jmn) then a[i,j]:=sr;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
end.