задача в delphi! тема массивы

[наташка-ромашка]

2. Дан двухмерный массив из 24 столбцов, перенести первые Р столбцов в конец массива, соблюдая порядок их следования.

[mMAg]

что-то типа такого:

var
mas : array [0..23, 0..23] of integer;
mas2 : array of array of integer;
i, j, k, P : integer;

begin
Readln(P); //дай P
SetLength(mas2, P);
for i := 0 to High(mas2) do
begin
    SetLength(mas2[i], 24);
end;
for i := 0 to P-1 do
    for j := 0 to 23 do
        mas2[i,j] = mas[i,j];
for i:= P to 23 do
    for j := 0 to 23 do
        mas[i-P,j] := mas[i,j];
for i := 24-P to 23 do
    for j := 0 to 23 do
        mas[i,j] := mas[i-24+P, j];
end.

[mMAg]

что-то типа такого:

var
mas : array [0..23, 0..23] of integer;
mas2 : array of array of integer;
i, j, k, P : integer;

begin
Readln(P); //дай P
SetLength(mas2, P);
for i := 0 to High(mas2) do
begin
    SetLength(mas2[i], 24);
end;
for i := 0 to P-1 do
    for j := 0 to 23 do
        mas2[i,j] = mas[i,j];
for i:= P to 23 do
    for j := 0 to 23 do
        mas[i-P,j] := mas[i,j];
for i := 24-P to 23 do
    for j := 0 to 23 do
        mas[i,j] := mas[i-24+P, j];
end.

[наташка-ромашка]

спасибо огромное!!!!!!!