1 процедура!

[ЗЛОбнаЯ]

В заданной прямоугольной матрице поставить на первое место столбец с наименьшим количеством нулевых элементов, переставив все нули в конец этого столбца (измененная матрица должна содержать все элементы исходной матрицы).
Не знаю как написать процедуру перестановки нулей в конец столбца( Помогите пожалуйста!

[Риндера]

Перебирай столбец, находи первый ноль, ставь в конец, и оставшиеся элементы сдвигай к началу столбца.

[Mad_Cat]

для вектора

i:=1;
k:=n;
while i<=k do begin
if a[i]=0 then
begin
for j:=i to n -1
a[j]:=a[j+1];
a[n]:=0;
dec(k);
end;
inc(i);
end;

для столбца аналогично)

[ЗЛОбнаЯ]

Спасибки)))