Навороченная матрица

[O m n i s]

Народ! Имеется матрица k на k!
const k=11

МЫ рандомно ее наполняем!
for i:=1 to k do
for j:=1 to k do
m[i,j]:=random(2);

В чем собственно загвостка:
Необходимо сделать сдвиг снизу вверх, т.е. в 1-ю строку записываются данные 2-1 строки т.д А последнию 11-ую строку заполнить рандомно!
for i:=1 to k do
for j:=1 to k do
begin
if j<k then
m[i,j]:=m[i,j+1] else
m[i,j]:=random(2);
end;

Мне нужно тоже сомое но в обратном порядке. В 11-ю строку записать данные данные 10-й строки и тд. Ну и последнию(первую строку) наполняем рандомом. Просто через те же For i:=1 to k do ни чего не получается. Т.к это штука делает пошаговое суммирование 1,2,3... и т.д А по идеи надо начинать с 11, 10, 9 , 8 ... и т.д.
Подскажите что нибудь

[Hacker19_90]

1) Рандом как говорил делай так

randomize; {Где-то в начале программы}
{потом только}
for i:=1 to k do
    for j:=1 to k do
        m[i,j]:=random(2);
{избавит тебя сам знаешь от чего}

Что касаемо сдвига
делай так

for i := k downto 2 do
    for j := 1 to k do
        m[i,j] := m[i-1,j];
{а тут рандом твоей первой строки}
for j := 1 to k do
    mas[1,j] := random(2);