program kontrolnaya;
const N1=5;N2=11;
var i,j,c,sum:integer;
      mas:array[1..N1,1..N2]of integer;
        f:text;

function get_min:integer;
begin
min:=mas[1,1];
for i:=1 to N1 do
for j:=1 to N2 do
if mas[i,j]<min then 
	begin
	get_min:=mas[i,j];
	c:=i;
	end;
end;

begin
randomize;
assign (f,'matrica.txt');
rewrite(f);
for i:=1 to N1 do
	begin
	for j:=1 to N2 do
		begin
		mas[i,j]:=random(201)-100;
		write (mas[i,j]:5);
		write(f,mas[i,j]:5);
		end;
	writeln;
	writeln(f);
	end;

// не знаю как вызвать номер строки где находится минимум, потом считаю сумму//

sum:=0;
i:=//номер строки//
for j:=1 to N2 do
sum:=sum+mas[i,j];
close(f);
read(mas[i,j],sum);
end.