Обработка двумерных массивов

Program easy;
uses crt;
type matr=array[1..5,1..5]of integer;
     mas=array[1..5]of integer;
var a:matr;b:mas;i,j,p:integer;
begin
clrscr;
writeln('Введите матрицу:');
for i:=1 to 5 do for j:=1 to 5 do read(a[i,j]);
writeln('Исходная матрица:');
for i:=1 to 5 do
    begin
         for j:=1 to 5 do write(a[i,j]:3); writeln
         end;
for i:=1 to 5 do
    begin
         //jmax:=1;amax:=a[i,1];
         for j:=1 to 4 do if (a[i,j]<0) and (a[i,j] mod 2<>0) then
             begin
             p:=1;
             P:=p*a[i,j];
             //b[i]:=p;
                  //amax:=a[i,j]; jmax:=j;
             end;
        b[i]:=p;
         //else b[i]:=0;
    end;
writeln('Полученный массив:');
for i:=1 to 5 do write(b[i]:3);
writeln
end.

for i:=1 to 5 do
 begin
  p:=1;k:=0;
  for j:=1 to 4 do 
  if (a[i,j]<0) and (a[i,j] mod 2<>0) then
   begin
    k:=1;   
    P:=p*a[i,j];
   end; 
  if k=1 then b[i]:=p
  else b[i]:=0;
 end;