سلام
این قسمت اصلی برنامه هستش
.
.
.
xM0:=A[M-1,0];
x0N:=A[0,N-1];
for i:=m-1 downto 1 do A[0,i]:=A[0,i-1];
for i:=1 to m-1 do A[n-1,i]:=A[n-1,i+1];
for j:=n-1 downto 2 do A[j, m-1]:=A[j-1, m-1]
for j:=1 to n-2 do A[j,0]:=A[j+1,0];
A[M-1,1]:=xM0;
A[0,N-2]:=x0N;
.
.
.