помогите решить задачу в паскале (срочно нуна)

[ЖориккккЁЁЁ]

Proc30. Описать процедуру MoveLeft(A,N,k)1|MoveRight(A,N,k)2, осуществляющую циклический сдвиг элементов вещественного массива A размера N на k позиций влево1|вправо2 (0 < k < 5, k < N). Массив A — входной и выходной параметр, N и k — входные параметры. С помощью этой процедуры осуществить сдвиг элементов данного массива размера N на k1 позиций, а затем — сдвиг элементов полученного массива на k2 позиций (k1 и k2 даны). После каждого вызова процедуры выводить на экран результирующий массив.

[maladoy]

http://programmersforum.ru/showthrea...F1%F1%E8%E2%E0

[capta1n]

вот код я писал - тут сдвиг на позиции вправо циклически и вниз циклически:

program capta1n;
uses crt;
label 1;
const
 m = 5;
 v = 3;
type
 x = 1..m;
 y = 1..v;
 item = array [x,y] of integer;
var
 a : item;
 i : x;
 k : y;
 n,l : byte;
 j : integer;
 c : integer;
begin

  clrscr;
  randomize;
  writeln ('Vasha matrica: ');
  for i:=1 to m do
  begin
    for k:=1 to v do
    begin
      a[i,k]:=random(10);
      write (a[i,k],'|')
    end;
    writeln
  end;
  writeln;

  write ('Vvedite N= '); readln (n);
1:write ('Vvedite rejim sdviga: vpravo - 1; vniz - 2   '); readln(j);

  case j of
  1 : begin
        n:=n mod v;
        for i:=1 to m do
         for l:=1 to n do
         begin
           c:=a[i,v];
           for k:=v downto 2 do a[i,k]:=a[i,k-1];
           a[i,1]:=c
         end
      end;
  2 : begin
        n:=n mod m;
        for k:=1 to v do
         for l:=1 to n do
         begin
           c:=a[m,k];
           for i:=m downto 2 do a[i,k]:=a[i-1,k];
           a[1,k]:=c
         end
      end
 else begin
        writeln ('Neverniy vvod!');
        goto 1
      end

  end;


  writeln ('Noviy massiv: ');
  for i:=1 to m do
  begin
    for k:=1 to v do write (a[i,k],'|');
    writeln
  end;

  readln

end.