Program RNames; uses crt;

const n_name=9;

      c_name:array [1..n_name] of string = ('Олечка','Вика','Алёнка',
                                            'Женечка','Ксюша','Даша',
                                            'Настя','Катюша','Алина');
var x,count,n:byte;
    used:set of byte;

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
Writeln(' Сколько человек из списка вы хотите выбрать? (Введите число от 1 до ',n_name,')');
Repeat
Write(' -> '); Readln(N);

if ((N <= 0) or (N > n_name)) then
                                  Begin
                                  Writeln(' ОШИБКА: Не верный диапазон! Повторите ввод...');
                                  Delay(3000);
                                  GotoXY(1,WhereY-1); ClrEol;
                                  GotoXY(1,WhereY-1); ClrEol;
                                  end;
Until ((N > 0) and (N <= n_name));

Used:=[];
Count:=0;

Write('--------------------------------------------------------------------------------');
Repeat
X:=Random(n_name)+1;
if not(X in Used) then
              Begin
              Inc(Count);
              Used:=Used+[X];
              Writeln(Count:3,'. ',c_name[x]);
              end;
Until (Count = n);

Write('--------------------------------------------------------------------------------');
Readln;
end.