В матрице обнулить элементы, целая часть которых является четным числом.

Помогите это паскаль

Двумерные массивы

Program gt;

var a:array[1 ... 100,1 ... 100]of real;

n, i, j, m:integer;

begin

read (N, m) ;

for i:=1 to n do

begin

for j:=1 to m do

begin

read (a[i, j]) ;

if (trunc (a[i, j]) mod 2=0) then a[i, j]:=0;

end;

end;

for i:=1 to n do

begin

for j:=1 to m do

begin

write (a[i, j],' ') ;

end;

writeln;

end;

end.