Дано n< =999 враховуючи 3 числа визначити що правильно містить: 1) усі різні цифри 2) цифри не ідуть по спаду и это все в паскаль

Var A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn('1: ',(A div 100 <> (A div 10) mod 10)and((A div 10) mod 10 <> A mod 10)and(A mod 10 <> A div 100));
Write('2: ');
if (A div 100 <= (A div 10) mod 10) then Write(True)
else Write(((A div 100) mod 10 <= A mod 10));
End.