Перестановка столбцов Опции

[Определение столбца.............]

Помогите пожалуйста
Вот такая задача
Я нашел число нулевых элементов в каждом столбце(ch[j])
И теперь мне надо найти столбец в котором больше всего нулевых элементов.?

[Serega18]

Код

Begin
assign(f1,'isdan.pas');
assign(f2,'vdan.pas');
reset(f1);
rewrite(f2);
 Begin
  for i:=1 to 4 do
   Begin
    For j:=1 to 5 do
     read(f1,A[i,j]);
    end;
   writeln(f2);
  end;

Такой вот вопрос я ввел матрицу А в f1 read(f1,A[i,j]); ,а выводить в f2 мне тоже матрицу А(но ведь она изменена) как мне поступить

[volvo]

я ввел матрицу А в f1 read(f1,A[i,j]); ,а выводить в f2 мне тоже матрицу А(но ведь она изменена) как мне поступить

Ну так куда же деваться? Если нужно сохранять измененную матрицу - значит пиши измененные значения в F2, если тебе еще раз понадобится исходная матрица A, ты же ее всегда сможешь считать из F1, не так ли?