нахождение минимального элемента матрицы в виде функции Опции

[ulika]

9. Сформировать двумерный массив Z размером 3 x 11 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов строки, в которой находится минимальный элемент матрицы Z (оформить нахождение минимального элемента в виде функции). Вывести на экран и в файл полученную сумму и номер строки

[ulika]

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

function MinRow: integer;  {функция нахождения номера строки с минимальным 
var                                             элементом матрицы}
  i,j,x,y: integer;
begin
  x:=1;
  y:=1;
  for i:=1 to N1 do 
  for j:=1 to N2 do 
  if mas[i,j]<mas[x,y] then 
    begin
    x:=i;
    y:=j
    end;
  MinRow:=x;
end;

begin
clrscr;                                    
randomize;
assign (f,'matrica.txt');   
rewrite(f);
writeln(‘isxodnaya matrica’);

for i:=1 to N1 do                          { формируем  двумерный массив 3 x 11  с помощью генератора 
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;

i:= MinRow;                 {вызов функции}
sum:=0;

for j:=1 to N2 do           {нахождение суммы}
sum:=sum+mas[i,j];

  writeln (‘summa=’,sum:5);     { Вывод на экран и в файл полученную сумму и номер строки}
  writeln(f,sum:5);
  write (‘nomer stroki’,i:2);
  write (f,i:2);

close(f);
readln;
end.

.