Описать функцию для определения первой (второй) цифры целого числа ( Паскаль )

[Никита757]

Описать функцию для определения первой цифры целого числа Х>0. На Паскале
Описать функцию для определения второй цифры целого числа Х>9. На Паскале

[newerow1989]

function x1(x:integer):integer;
var a:integer;
begin
   x1:=0;
   If x<=0 then
      Exit;
   Repeat
      a:=x mod 10;
      x:=x div 10;
   Until x<10;
   x1:=x;
end;

function x2(x:integer):integer;
var a:integer;
begin
   x2:=0;
   If x<=9 then
      Exit;
   Repeat
      a:=x mod 10;
      x:=x div 10;
   Until x<10;
   x2:=a;
end;

begin
   Writeln(x1(5247));
   Writeln(x2(5247));
   Readln;
end.

Сойдет?