Циклический сдвиг массива

uses crt;
const max=20;
var a:array[1..max,1..max] of integer;
    k,m,n,i,j,r,p:byte;
    s:integer;
begin
clrscr;
repeat
write('Количество строк k=');
readln(k);
until k in [1..max];
repeat
write('Количество столбцов m=');
readln(m);
until m in [1..max];
writeln('Исходная матрица:');
for i:=1 to k do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=10*i+j;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Выберите направление сдвига:');
writeln('1-по строкам вправо, 2-по столбцам вниз');
repeat
readln(r);
until r in [1,2];
write('На сколько позиций сдвинуть? - ');
readln(n);
case r of
1:begin{по строкам вправо}
  n:=n mod m;{берем остаток от деления, т.к. сдвиг на i*m не приводит к сдвигу}
  for i:=1 to k do{все строки}
  for j:=1 to n do{сколько сдвигов}
   begin
    s:=a[i,m];{запомним последний}
    for p:=m downto 2 do{сдвинем к нему впереди находящиеся элементы}
    a[i,p]:=a[i,p-1];{на 1 позицию}
    a[i,1]:=s;{последний вперед}
   end;
  end;
2:begin{ все тоже самое по столбцам вниз}
  n:=n mod k;
  for j:=1 to m do
  for i:=1 to n do
   begin
    s:=a[k,j];
    for p:=k downto 2 do
    a[p,j]:=a[p-1,j];
    a[1,j]:=s;
   end;
  end;
end;
writeln('Результат сдвига:');
for i:=1 to k do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.