Подскажите, что не так

[SWAT]

После максимального элемента каждой строки вставить соответствующий элемент из заданного одномерного массива

Program Pr3;
uses crt;
var x:array[1..10,1..10]of integer;
y:array[1..10] of integer;
n,m,i,j,k,p,z:integer;
begin clrscr;
write('vvedite 4islo stolb massiva (<=9'); readln(n);
write('vvedite 4islo stok massiva(<=9)'); readln(m);
write('zapolnenie massiva:');
for i:=1 to n do
for j:=1 to m do
begin
writeln('x[',i,',',j,']=');
readln(x[i,j]);
end;
writeln;
writeln('zapolnenie odnomernogo massiva:');
write('vvedite elements massiva');
for j:=1 to n do
begin
writeln('y[',i,']');
readln(y[i]);
end;
writeln('ishodnui massiv:');
for i:=1 to n do
begin
for j:=1 to m do
write(x[i,j]:6);
writeln;
end;
for i:=1 to n do
begin
z:=x[i,1];
k:=1;
for j:=1 to m do

if x[i,j]>z then
begin
z:=x[i,j];
k:=j;
end;
for p:=m to k do
x[i,p+1]:=x[i,p];
x[i,k]:=y[i];
end;
writeln;
writeln('polu4ennui massiv:');
for i:=1 to n do
begin
for j:=1 to m+1 do
write(x[i,j]:3);
writeln;
end;
readln;

Работает только в последней строке, и ставит перед максимальным, а не после, в остальных строках ставит нулевые значения