В каких климатических поясах Евразии несколько климатических областей? Почему?

Как минимум тут:
for i:=1 to n do begin
if a[5,j] mod 2=1 then p:=p*a[5,j];
в цикле счетчик I, а массив проверяет по j

Измени вот этот фрагмент следующим образом:
writeln('Полученный массив');
for j:=1 to m do
  begin
  if a[5,j] mod 2=1 then
    begin
    p:=p*a[5,j];
    inc(k);
    end;
  end;
writeln('Произведение = ',p);
writeln('Количество =',k);

Все будет работать как надо.