Repeat
    Writeln('Введите хуй');
    IsCorrect := True;
    Try
        Readln(Xyu);
    Except
        IsCorrect := False;
    End;
    If (Not IsCorrect) Or (Xyu < 1) Then
    Begin
        IsCorrect := False;
        Writeln('не хуй');
    End;
Until IsCorrect;