запись и чтение фаила + матрица Опции

[JoB]

Необходимо написать две проги:
1. записывает фаил
2.читает фаил.
Ввести матрицу (4 строки 6 столбцов) Обнулить каждый эллимент не четных столбцов матрици.

[JoB]

Что то ничего не получается вот:

uses crt;
const n=4; m=6;
type
vector = array[1..n] of byte;
matrix = array[1..m] of vector;
var i,j:byte;
k:byte;
d: matrix;
t:text;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
d[i,j]:=random(100);
for j:=1 to n do
begin
if j mod 2 then
j[k]:=0;
end;
assign(t,'99.txt');
rewrite(t);
for i:=1 to n do
begin
for j:=1 to m do
write (t, d[i,j]:5);
writeln (t);
end;
close(t);
end.
  

но я думаю, что лучшеб через inc И odd(i)(возвращает true если i не четная.) - но к сожалению я забыл как они правельно пишутся...