Как заполнить двумерный массив 4x4 случайными неповторяющимися числами от 1 до 16?

Доброго времени суток.

Заполняете массив числами от 1 до 16 по-порядку, а потом в цикле выбираете случайным образом индексы двух ячеек и меняете элементы местами. Число итераций виберите экспериментально. Полагаю, что сотни хватит, чтобы элементы перемешались.

А можно и по другому. Генерите первое случайное число, пишите его в массив и заносите в множестово. А дальше после получения очередного числа проверяете, есть оно в множестве или нет. Если есть, генерите новое, а если нет, то в массив его и добавляете к множеству.

Удачи!

делаем цыкл, берем генератор случайных чисел, множим на 16, и подставляем поочередно.
Код на 10-15 строк

пишу прям в браузере -> могут быть ошибки :)
label: label; {метки не помню до вара или после и синтаксис тоже :)}
var i,j,k,k,l:=byte;
array:array[1..4,1..4]of byte
begin
randomize:
for i:=1 to 4 do
for j:=1 to 4 do begin
label:
array[i,j]:=random(16); {(или 17)}
for k:=1 to i do
for l:=1 to l do
if array[k,l]=array[i,j] then goto label:
end;
end.

//псевдокод
void Fill()
{
for(...<4)
{
for(...<4)
{
while(true)
{
//случайное значение может повторяться
vaue=GetRandomValue(16);
if(Check(value, array))
{
array[j]=value;
break;
}
}
}
}
}
//проверим что это число еще не занесли в массив
bool Check(value, array)
{
for(...)
for(...)
{
if(array[i[j]=value)
return false;
}
return true;
}

Пойдет? :
var x:array [1..4,1..4] of byte;
n,i,j:integer;
x1,y1,x2,y2:integer;
begin
randomize;
for i:=1 to 4 do for j:=1 to 4 do x[i,j]:=j+(i-1)*4;
for i:=1 to 100 do begin
x1:=random (4)+1;
y1:=random (4)+1;
x2:=random (4)+1;
y2:=random (4)+1;
n:=x[x1,y1];
x[x1,y1]:=x[x2,y2];
x[x2,y2]:=n;
end;
for i:=1 to 4 do begin
for j:=1 to 4 do
write (x[i,j]:3);
writeln; end;
readln;
end.