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

{Думаю, это должно работатьВажно, что во второй раз выбор происходит уже среди n-1 вариантов}const n = 10;var i,j: integer;begini := 1 + random(n);j := 1 + random(n-1);if j >= i then j := j + 1;write(i,' ',j)end.