Два сложных массива

uses crt;
var a:array[1..100] of integer;
    n,i,k:integer;
    sredar:real;
begin
clrscr;
randomize;
write('n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)-7;
  write(a[i],' ');
 end;
writeln;
sredar:=0;k:=0;
for i:=1 to n do
if a[i]>0 then
  begin
   sredar:=sredar+a[i];
   k:=k+1;
  end;
if sredar=0 then write('Положительных нет!')
else write('Среднее арифметическое положительных=',sredar/k:0:2);
readln
end.

uses crt;
var a:array[1..50,1..50] of integer;
    m,n,i,j,mn,imn,jmn,mx,imx,jmx,x:integer;
begin
clrscr;
randomize;
write('m=');
readln(m);
write('n=');
readln(n);
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
mn:=a[1,1];imn:=1;jmn:=1;
mx:=a[1,1];imx:=1;jmx:=1;
for i:=1 to m do
for j:=i to n do
 begin
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    imn:=i;
    jmn:=j;
   end;
  if a[i,j]>mx then
   begin
    mx:=a[i,j];
    imx:=i;
    jmx:=j;
   end;
  end;
writeln('Минимальный  a[',imn,',',jmn,']=',mn);
writeln('Максимальный a[',imx,',',jmx,']=',mx);
x:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx];
a[imx,jmx]:=x;
writeln('Результат:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.