задача на одномерные массивы

[pelsh]

В массиве Х[1..N] каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы и, наконец, все двойки (дополнительного массива не заводить!).

[Карась]

begin

Randomize;
FOR i := 1 to 10 do Begin
mas[i] := Random(3); Write (mas[i],' '); End;

Writeln;

FOR x := 0 To 2 Do
FOR i := 1 To 10 Do IF mas[i] = x Then Write (mas[i],' ');

Readln;

end.

[pelsh]

Random и Randomize что они означают?

[Alex.rus]

Результатом Random(x) будет случайное число от Х-1;

Если писать просто Random без Randomize, то после каждого перезапуска проги будет браться случайные числа, но одни и те же т.е.
первый запуск 0,2,1;
второй запуск 0,2,1 и т.д.
а если писать с Randomize, то каждый запуск программы функция Random будет брать псевдослучайное число относительно времени на ПК т.к. оно потоянно меняется и следовательно числа будут разные.