ПАСКАЛЬ!!!создать массив 5х6 целых чисел из диапазона [1;10] вывести его на экран. Найти количество и произведение нечетных элементов последней строкиВот код программы, где ошибка?!program p1;uses crt;const n=5; m=6;var a:array [1..n,1..m] of integer;i,j,p,k: integer;beginrandomize;clrscr;writeln(Данный массив);for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=random(10)+1;write(a[i,j]:4);end;writeln;end;p:=1;writeln(Полученный массив);for i:=1 to n do beginif a[5,j] mod 2=1 then p:=p*a[5,j]; inc(k);writeln(Произведение = ,p);writeln(Колличество =,k);readln;end;end.

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