Вдвумерном массиве размерностью n*m, содержащем целые числа, найти среднее арифметическое минимальных элементов строк

uses crt;
var i,j,min,n,m :integer; s:real;
a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
begin
readln(n,m);
s:=0;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(25)+1;
end;

for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');

end; writeln;
WriteLn('Ìèíèìàëüíûå ýëåìåíòû ñòðîê:');
for i:=1 to n do begin
min:=a[i,j];
for j:=2 to m do begin
if min>a[i,j] then begin
min:=a[i,j];
end;
end;
s:=s+min;

Write(min,' ');
end;
writeln('avg = ',(s/n):0:1);
end.