Помогите пожалуйста с задачей в Турбо Паскаль.

[Bulvai]

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

[OLEG'arh]

uses crt;
function minimun(var x,min,k,i:integer):integer;
 begin
   if min>x then
       begin
         min:=x;
         k:=i;
       end;
 end;
var
  i,j,min,k,n,sum:integer;
  z:array[1..20,1..11] of integer;
  f:text;
begin
randomize;
clrscr;
writeln('vvedine porol');
readln(n);
n:=n+2;


assign(f,'c:\fail.txt');
rewrite(f);

for i:=1 to n do
  begin
    for j:=1 to 11 do
      begin
        z[i,j]:=random(50)-25;
        write(z[i,j],'  ');
        write(f,z[i,j],'  ');
      end;
    writeln;
    writeln(f);
  end;

writeln;
writeln(f);
writeln;
writeln(f);


min:=z[1,1];
k:=1;
for i:=1 to n do
  for j:=1 to 11 do
    minimun(z[i,j],min,k,i);

for j:=1 to 11 do
  if z[k,j]>=0 then sum:=sum+z[k,j];

writeln('nomer stroki s minimalnim elementom ',k);
writeln(f,'nomer stroki s minimalnim elementom ',k);
writeln('summa = ',sum);
writeln(f,'summa = ',sum);


close(f);
end.