Введите трёхзначное число вывести на экран число сотен,10-ов,единиц в этом числе.Работа

var a: integer;

sot, des, ed: integer;

begin

readln(a);

if (agt;99) and (alt;1000) do

begin

  ed:=a div 10;

  des:=(a mod 100) div 10;

  sot:=a mod 100;

end else writeln(Число не трёхзначное!);

writeln(Единиц , ed);

writeln(Десятков , des); 

writeln(Сотен , sot);

end.