Найти первую цифру целого числа- Pascal(Паскаль)

Program cifra;
 
function firstDigitOf(i: integer): integer;
begin
  i:= abs(i);
  while i >= 10 do i:= i div 10; 
  firstDigitOf:= i;
end;
 
var
  n: integer;
begin
  Write('Введите число: ');
  ReadLn(n);
  WriteLn( 'Первая цифра числа: ', firstDigitOf(n) );
  ReadLn;
end.

Program cifra;
procedure firstDigitOf(i: integer;var k:byte);
begin
  i:= abs(i);
  while i >= 10 do i:= i div 10;
  k:= i;
end;
var n:integer;
    k:byte;
begin
  Write('Введите число: ');
  ReadLn(n);
  firstDigitOf(n,k);
  WriteLn( 'Первая цифра числа: ',k);
  ReadLn;
end.