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

[JoB]

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

[volvo]

Ну, задай матрицу вот так, и сразу запиши ее в файл:

  randomize;
  for i:=1 to n do
    for j:=1 to m do
      if odd(j) then d[i,j]:=0
      else a[i, j] := random(100);
  { и сразу запись в файл... }

Больше ничего делать не надо...