задача с методом попарных инверсий

[lini]

помогите плиз найти ошибку, или несколько

переставить в произвольном столбце нули в конец столбца методом попарных инверсий.

Procedure P
(var A:matr);
var W,I,k: integer;
begin
k:=0 repeat for I:=1 to N-1 do
begin k: if (A[I+1,1] <> 0) and (A[I,1]=0) then
begin W:=A[I,1],
A[I,1]:=A[I+1,1];
A[I,1]:=W;
k:=k+1 end end
until (k=0)
end.

[lini]

на паскале это

[Vremya-Dengy]

Сообщение от lini

помогите плиз найти ошибку, или несколько

переставить в произвольном столбце нули в конец столбца методом попарных инверсий.

Procedure P
(var A:matr);
var W,I,k: integer;
begin
k:=0 repeat for I:=1 to N-1 do
begin k: if (A[I+1,1] <> 0) and (A[I,1]=0) then
begin W:=A[I,1],
A[I,1]:=A[I+1,1];
A[I,1]:=W;
k:=k+1 end end
until (k=0)
end.

одна большая сплошная ошибка))))))

1 W задайте как матрицу в переменных
2 что значит "begin k:"??? метод не знаком, разберетесь сами что долно стоять....
3 поставьте запятые после каждого слова :"k:=k+1", "end" и "end" и после until (k=0)

[lini]

где W как матрицу задать?
я плохо соображаю))