Как найти первые две цифры натурального числа в паскале?

Var

n:longint;

i, d:integer;

begin

ClrScr;

Write ('n=') ; Read (n) ;

if n<100 then Writeln (n:2)

else begin

repeat

n:=n div 10;

if n<100 then Writeln (n:2)

until n<=99;

end;

Readkey

end.

Program al;

var n:integer;

begin

writeln ('n=') ;

readln (n) ;

if (n >9) and (n<100) then writeln (n) ;

if (n > 99) and (n<1000) then writeln (n div 10) ;

if (n >1000) and (n<10000) then writeln (n div 100) ;

if n>10000 then writeln (n div 1000) ;

readln;

end.