Описать функцию целого типа, возвращающую N-ю цифру целого положительного числа K

uses crt;
function DigitN(k:longint;n:byte):integer;
var i:integer;
begin
i:=0;
while (k>0)and(i<n) do
 begin
  i:=i+1;
  if i=n then DigitN:=k mod 10
  else k:=k div 10;
 end;
if i<n then DigitN:=-1;
end;
var i,j:byte;
    k:longint;
begin
clrscr;
for i:=1 to 5 do
 begin
  repeat
   write('Введите целое положительное число k=');
   readln(k);
  until k>0;
  for j:=1 to 5 do
  writeln('Цифра ',j,'=',DigitN(k,j));
 end;
readln
end.

var k, n:integer;
 
function DigitN(k, n:integer):string;
var s:string;
begin
 str(k, s);
 DigitN:=copy(s, n, 1);
end;
 
begin
 
 writeln('Введите число К:');
 readln(k);
 writeln('Введите номер цифры N:');
 readln(n);
 writeln('Результат:');
 writeln(DigitN(k, n));
 readln;
end.

function DigitN(k, n:integer):char;
var s:string;
begin
 str(k, s);
 DigitN:=s[n];
end;