Пожалуйста сделайте программку в Паскаль. "запросить с клавиатуры целое 8 число

В каком смысле целое 8 ? Целое восьмизначное?

Вот составил программу при условии, что вводиться 8-ми значное число, заканчивающиеся на 3. И выводиться его 3 число.

Program znanija;
var a,x:integer;
Begin
repeat  
Writeln('Введите x'); 
readln(x); 
If x mod 10 lt;gt; 3 then writeln('Повторите ввод')
 until x mod 10 = 3;
a:=x div 100000;
a:= a mod 10;
Writeln(a);
readln;
End.