процедура к двумерному массиву

[Alenaa]

Помогите решить задачу пожалуйста.

Создать процедуру, сдвигающую элементы
k-ого слоя целочисленного прямоугольного
массива на p шагов вправо. Номер слоя k
и количество шагов p задать с консоли.

[Костя КС]

program ll;
const n = 4;
type
mas = array[1..n,1..n] of integer;
procedure zam(var m:mas;k,p:integer);
var
m2 : array[1..n] of integer;
i,j: integer;
begin
for i := 1 to n do
 if (i-p) <1 then m2[i]:= m[k,i-p+n] else m2[i]:= m[k,i-p];
 
for i :=1 to n do
m[k,i]:=m2[i];
end;


var
m : mas;
i,j,p,k : integer;

begin
randomize;
for i:=1 to n do
 begin
  for j :=1 to n do
  begin
   m[i,j]:=random(50);
   write(m[i,j],' ');
  end;
 writeln;
 end;
 write('строка : ');
 readln(k);
  write('сдвиг : ');
 readln(p);
 
 zam(m,k,p);
writeln;
 for i:=1 to n do
 begin
  for j :=1 to n do write(m[i,j],' ');
 writeln;
 end;
end.