Цифры

[kidi911]

if (x>=1000000000) then begin
    writeln('Число должно быть меньше 1000000000');
    exit;
  end;

проще это зделать здесь

 if (x<0) then begin
    writeln('Число недолжно быть отрицательным');
    exit;
  end;

через OR