Матрица

[stas45rus]

Дана матрица из 8 строк и 16 столбцов. Нужно, чтобы в каждой строке располагались числа от 0 до 15 в произвольном порядке, т.е. например:
11 2 8 4 13 5 10 15 6 9 12 1 3 0 14 7
подскажите как это реализовать?
вот примерный код:

 For i:=1 To 8 Do
  begin
    For j:=1 To 16 Do
     begin
       b[j]:=Random(16);
       For t:=1 To j Do
        While b[j]=b[t] Do
         b[j]:=Random(16);
      Write(z,d:3);
     end;  
    Writeln(z);
  end;

[KORT]

procedure ZapMatr;
  var
    i,j:integer;
    matr:array [1..8,1..16] of integer;
  begin
    randomize;
    for i:=1 to 8 do
      for j:=1 to 16 do
        matr[i,j]:=random(15);
  end;

Думаю вывод на экран сами доделаете...

[JUDAS]

КОРТ не много не то.
Вон то что хочет автор темі

 procedure ZapMatr;
var
    i,j,k,value : integer;
    matr:array [1..8,1..16] of integer;
 begin
   randomize;
  for i:=1 to 8 do
  begin
   for j:=1 to 16 do // заполняем
    matr[i,j] := j-1;
   for j:=1 to 16 do // мешаем
   begin
     value:=random(15);
     k:=matr[i,value];
     matr[i,value]:=matr[i,j];
     matr[i,j]:=k;
   end;
  end;

  for i:=1 to 8 do
  begin
   for j:=1 to 16 do
    write(matr[i,j],' ');
    writeln('');
  end;
end.