"Random" в матрице (Turbo Pascal)

[JIUMOH]

Здравствуйте... проблема такая...
есть задача, ее условие:
В матрице QW(n,m) переставьте элементы так, чтобы на главной диагонали и линиях, параллельных ей, стояли возрастающие последовательности, причем перестановка этих элементов возможна только в пределах этих линий.
Ее код в Turbo Pascal.
program p1;
uses crt;
var
i,j:integer;
q:array[1..100,1..100] of integer;
n:integer;
s:boolean;
tmp:integer;
begin
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
q[i,j]:=random(n);
write(q[i,j]:3);
end;
writeln;end;
Writeln('--------------------');
s:=true;
while s=true do begin
s:=false;
for i:=1 to n-1 do
for j:=1 to n-1 do
if q[i,j]> q[i+1,j+1] then begin
s:=true;
tmp:=q[i,j];
q[i,j]:=q[i+1,j+1];
q[i+1,j+1]:=tmp;
end; end;

For i:=1 to n do begin
for j:=1 to n do
write(q[i,j]:3);
writeln;
end;
readln;
end.

Но мне нужно, чтобы элементы этой матрицы случайно вставлялись компьютером не от 0 до 9, а от 0 до 20...
Подскажите, что изменить в коде?

[Скандербег]

А откуда известно, что числа генерируются от 0 до 9?
Функция random, судя по коду, возвращает числа в диапазоне от 0 до n. И кто мешает ввести число 20 при запросе значения n?

[IT-man]

q[i,j]:=random(n);

замени на

q[i,j]:=random(20);

[Serge_Bliznykov]

а от 0 до 20...

если включая число 20, то

 Random(21)

и не забудьте в начале программы вызвать
Randomize;