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

[JoB]

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

[JoB]

Я тут немного набросал, правдо есть ошибки и основная задача не выполнена...

 const n=4; m=6;
type
vector = array[1..n] of byte;
matrix = array[1..m] of vector;
var i,j:integer;
d: matrix;
begin
for i:=1 to n do
write;
for j:=1 to m do
write (D[i,j]);
writeln;
for i:=1 to n do
begin
if i mod 2
else i:=0;
write
end;
for j:=1 to m do
begin
if j mod 2
else
j:=0;
writeln (d[i,j])
end.

.