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

[JoB]

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

[volvo]

Потому, что неправильно читаешь матрицу из файла... Вот так матрица читается и распечатывается, как положено:

uses crt;
const
  n = 4; m = 6;

type
  vector = array[1..n] of byte;
  matrix = array[1..m] of vector;

var
  i, j: byte;
  d: matrix;
  t: text;

begin
  clrscr;
  assign (t,'99.txt'); reset (t);

  i := 1;
  while not seekeof(t) do begin
    j := 1;
    while not seekeoln(t) do begin
      read(t, d[i, j]); inc(j);
    end;
    readln(t);
    inc(i);
  end;

  close (t);
  for i:=1 to n do begin

    for j := 1 to m do
      write(d[i,j]:5);
    writeln()

  end;
  writeln;
  readln;
end.