Как написать программу в паскале, чтобы 2 рандомных числа не повторялось?

Var a,b,n:integer;
begin
n:=10;
Randomize;
a:=random(n)+1;
b:=random(n)+1;
while b=a do b:=random(n)+1;
writeln('a = ',a,' b = ',b);
end.

Пример:
a = 8 b = 4

{
Думаю, это должно работать
Важно, что во второй раз выбор происходит уже среди n-1 вариантов
}

const n = 10;
var i,j: integer;
begin
i := 1 + random(n);
j := 1 + random(n-1);
if j >= i then j := j + 1;
write(i,' ',j)
end.