С клавиатуры вводится число. Правильно ли что все его цифры единицы.

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var x:=абс(ReadInteger()).ToString().Select(x-gt;x.ToDigit());
write( x.Where(x-gt;x=1).Count()=x.Count());
end.

Var
  n:integer;

begin
  Write('Введите проверяемое число: '); Read(n);
  n:=Абс(n); от ввода отрицательных
  while ngt;0 do begin
    if n mod 10 lt;gt; 1 then begin
      Writeln('Не все цифры - единицы');
      exit
      end;
    n:=n div 10
    end;
  Writeln('Да, все числа числа - единицы')
end.