копирование массива

[Canvas]

обьясняю- есть массив 10 на 9. в нём храняться случайные числа от 1 до 3 (0 не включен)- как сделать так, чтобы часть массива до координаты в параметре X сдвигалась вправо?...... вот что я надумал- но это работает слабенько...

for x1:=9 downto 0 do
  begin
  if (mas[x1,8]=0)and(mas[x1,7]=0)and(mas[x1,6]=0)and(mas[x1,5]=0)and(mas[x1,4]=0)and(mas[x1,3]=0)and(mas[x1,2]=0)and(mas[x1,1]=0)and(mas[x1,0]=0) then
    if mas[x1-1,8]<>0 then
      begin
      for y2:=0 to 8 do
      for x2:=0 to 9 do
      mas2[x2,y2]:=mas[x2,y2];
      x2:=0;
      while x2<x1 do
      begin
        for y2:=0 to 8 do
        for x2:=0 to 9 do
        mas[x2,y2]:=mas2[x2-1,y2];
      end;

как видите- сначала у меня идёт проверка- на пустой столбец, до которого надо сдвигать... и проверка- заполнен ли столбец левее того что пуст.

помогите плиз....

[Stilet]

НУ насколько я понял задание то решить мона примерно так:

var a:array[1..10,1..9] of integer; k,i,j:integer;
begin
{Наполняем массив}
for i:=1 to 10 do begin
  for j:=1 to 9 do begin a[i,j]:=i*j;write(a[i,j]:3); end;
  writeln;
end;
k:=2;  {Сдвинуть на второй столбец}
for i:=1 to 10 do begin
 move(a[i,1],a[i,k],sizeof(a[i,1])*k);
 FillChar(a[i,1],sizeof(a[i,1])*(k-1),0);
end;
writeln;
{Показать сдвинутое}
 for i:=1 to 10 do begin
  for j:=1 to 9 do begin write(a[i,j]:3); end;
  writeln;
end;
readln;
end.

[Canvas]

я попробую. но это надо было в делфи))) ща мош передаю... и проверю...

[Canvas]

непомогло... =(

[Canvas]

ну помогите, плиииз!

[evg_m]

for j:=x downto 1 do
  mas[i,j]:=mas[i,j-1];
mas[i,0]:=0;