Найти сумму строк матрицы, среднее значение элементов матрицы и минимальный элемент

const n=10;
var a:array[1..n,1..n] of integer;
    i,j,ss,mn,sc:integer;
    sr:real;
    f:text;
begin
randomize;
writeln('Матрица');
sr:=0;
mn:=101;
sc:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(101);
    write(a[i,j]:4);
    sr:=sr+a[i,j];//общая сумма
    if a[i,j]<mn then mn:=a[i,j];//минимум
    if i mod 2=0 then sc:=sc+a[i,j];//сумма элементов четных строк
   end;
  writeln;
 end;
sr:=sr/n/n; //среднее всех элементов
writeln;
writeln('Суммы строк матрицы');
for i:=1 to n do
 begin
  ss:=0;
  for j:=1 to n do
  ss:=ss+a[i,j];
  writeln('строка ',i:2,' сумма=',ss);
 end;
writeln('Среднее значение элементов матрицы=',sr:0:2);
writeln('Минимальный элемент=',mn);
assign(f,'output.txt');
rewrite(f);
writeln(f,' Сумма элементов четных строк=',sc);
close(f);
end.

const n=10;
var
    a:array[1..n,1..n] of integer;
    min,sf,s:integer;
    i,j:byte;
    outp:text;
    ave:real;
begin
    randomize;
    assign(outp,'output.txt'); rewrite(outp);
    sf:=0; ave:=0;
    for i:=1 to n do begin
        for j:=1 to n do begin
            a[i,j]:=random(101); write(a[i,j]:3,' ');
            if not odd(i) then sf:=sf+a[i,j];
            ave:=ave+a[i,j];
        end;
        writeln;
    end;
    write(outp,sf); close(outp);
    min:=a[1,1]; ave:=ave/sqr(n);s:=0;
    for i:=1 to n do begin
        for j:=1 to n do begin
            if a[i,j]<min then min:=a[i,j];
            s:=s+a[i,j];
        end;
        writeln('Сумма ',i,' строки - ',s); s:=0;
    end;
    writeln('Минимальный элемент = ',min,'; Среднее арифметическое = ',ave);
end.