Помогите написать задачу в Паскале .

изучи и примени к своей программе
program mass1; // proizvedeniya po strokam matrici
uses crt;
type mas=array[1..5,1..6] of integer;
type mas1=array[1..5] of integer;
var m,nm,i,j:integer;
p:mas1;
a:mas;
procedure Pr(b:mas;var c:mas1);
var
i,j:integer;
begin
for i:=1 to 5 do begin
c:=1;
for j:=1 to 6 do
c:=c*b[i,j];
end;
end;
begin
clrscr;
writeln('vvesti massiv');
for i:=1 to 5 do
for j:=1 to 6 do
begin write('a[',i,',',j,']= '); read(a[i,j]); end;
writeln('isxodniy massiv');
writeln('------------------');
for i:=1 to 5 do begin
for j:=1 to 6 do write(a[i,j]:5);
writeln; end;
writeln;
writeln('proizvedeniya po strokam');
writeln;
pr(a,p);
for j:=1 to 5 do
writeln('s[',j,']= ',p[j]:4); writeln;
m:=p[1]; nm:=1;
for i:=2 to 5 do
if p; nm:=i end;
writeln('min= ',nm,' stroka');
writeln('konec zadachi');
readkey;
end.