Напишите программу по последовательному вводу пяти различных чисел чисел. причём программа не должна разрешать ввод одинаковых чисел.

Вот листинг: 

"if freedom is outlawed, only outlaws will have freedom." © TSRh

Const
   N = 5;
Var
   P:array[1..N] of integer;
   C,i,j,B:integer;
Begin
WriteLn('Введите пять целых чисел');
For i:=1 to N do
    Begin
    Repeat
    B:=0;
    Read(C);
    For j:= 1 to i-1 do
        if P[j] = C then B:=j;
    if B > 0 then WriteLn('Число ',P[B],' уже было'#13'Попробуйте ещё раз')
    else P[i]:=C;
    Until B = 0;
    End;
WriteLn('Полученная последовательность');
For i:= 1 to N do Write(P[i],' ')
End.