Найти две первые цифры числа

uses crt;
var n,count,code:longint;
st:string;
begin
clrscr;
readln(n);
str(n,st);
writeln('Первая цифра: ',st[length(st)],' ; Вторая цифра: ',st[length(st)-1]);
val(st[length(st)],count,code);
if odd(count) then write('Нет, не верно, первая цифра числа ',n,' нечетная')
else write('Да, верно, первая цифра числа ',n,' четная');
readkey;
end.

var n:integer;
b:boolean;
begin
  b:=false;
  writeln('введите число');
  readln(n);
  while n>9 do
    n:=n div 10;
  if n mod 2=0 then b:=true;
  writeln('первая цифра',n);
  writeln('первая цифра чётная',b);
  readln;
end.

var n,m:integer;
   b:boolean;
begin
 b:=false;
 writeln('введите число');
 readln(n);
  while n>99 do
    n:=n div 10;
  m:=n mod 10;
  n:=n div 10;
  if n mod 2=0 then b:=true;
  writeln('первая цифра',n);
  writeln('вторая цифра',m);
  writeln('первая цифра чётная',b);
  readln;
end.

var
  n: integer;
begin
  writeln('ââåäèòå ÷èñëî');
  readln(n);
  while n > 99 do
    n := n div 10;
  writeln('ïåðâàÿ öèôðà: ', n div 10, #10, 'âòîðàÿ öèôðà: ', n mod 10, #10, 'ïåðâàÿ öèôðà ÷¸òíàÿ: ', n mod 2 = 0);
  readln;
end.