Паскаль! Введите четырёхзначное число. Обусловьте правильно ли, что число тыщ в

Не уверен, что верно, но всё же

(t - цифра означающая разряд тыщ, d -цифра означающая разряд 10-ов)

var a,t,d:integer;      

begin

writeln('Введите четырёхзначное число');

read(a);

t:=a div 1000;

d:=(a mod 100) div 10;

if tgt;d then writeln('Число тыщ больше числа 10-ов')

else writeln('Число тыщ меньше числа 10-ов');

end.