Требуется решение(желательно подробно)

for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if odd(mas[i,j]) then 
inc(k);
writeln('в ',i,' строке ',k,' нечетных элементов');
end;

uses
    crt;
var
   a:array[1..100,1..100] of integer;
   i,j,k,n:integer;
begin
     writeln('wvedite razmernost matrci ');
     readln(n);
     writeln('wvedite matricu razmerom ',n,' x ',n);
     for i:= 1 to n do
         for j:= 1 to n do
             read(a[i,j]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if odd(a[i,j]) then
inc(k);
writeln('â ',i,' ñòðîêå ',k,' íå÷åòíûõ ýëåìåíòîâ');
end;
readkey
end.

program Dekio;
const
n=8;
m=8;
var
mas :array[1..n,1..m] of integer;
i,j,k :integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=random(30)-5;
write(mas[i,j]:5);
end;
writeln;
end;
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
if odd(mas[i,j]) then
inc(k);
writeln('в ',i,' строке ',k,' нечетных элементов');
end;
end.