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

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;  Readkeyend.