Про генератор случайных чисел в Паскале!

Нужно заполнить подряд идущими значениями от 0 до 99, а затем случайным образом перемешать!
var A : array [1..10, 1..10] of Byte; R, C : Byte; T : Word; R1, R2, C1, C2 : Byte;
begin
{ задаём массив подряд идущими значениями от 0 до 99}
for R := 1 to 10 do for C := 1 to 10 do A[R, C] := (R - 1) * 10 + C - 1;
{ случайным образом меняем значения ячеек }
Randomize; for T := 1 to 1000 do begin R1 := Random(10) + 1; R2 := Random(10) + 1; C1 := Random(10) + 1; C2 := Random(10) + 1; R := A[R1, C1]; A[R1, C1] := A[R2, C2]; A[R2, C2] := R; end;
{ выводим результат }
WriteLn('Массив А: '); for R := 1 to 10 do begin for C := 1 to 10 do Write(A[R, C]:4); WriteLn; end;
end.

берешь массив из 100 элементов от 0 до 99.
проходишься по ячейкам таблицы, и в цикле
1) генерируешь число - позиция элемента из массива.
2) уменьшаешь массив на 1, удалив из него выставленный в таблицу элемент

var
i: Integer;
A: Array[1..10, 1..10] of Byte;
begin
Randomize;
for i := 1 to 10 do
for j := 1 to 10 do
A[i,j] := Random(100);
for i := 1 to 10 do begin
for j := 1 to 10 do
Write(A[i,j], ' ');
WriteLn;
end;
ReadLn;
end.

Ну кажется есть идеи как создать.