Написать функцию InvertDigits(k:longInt):LongInt меняющую порядок следования цифр целого положительного числа

Program Prog_Sam_13_02;
{Функция подсчитывает количество цифр в числе}
Function CountDigits(k:longInt):byte;
Var
    count:byte;
begin
    count:=0;
    while k <>0 do
    begin
        count:=count+1;
        k:=k div 10;
    end;
    CountDigits:=count;
end;
 
{Функция возведения числа 10 в целую степень К}
Function Power10(k:byte):comp;
Var
    Z:Comp;
    i:byte;
begin
    z:=1;
    For i:=1 To k do Z:=Z*10;
    Power10:=z
end;
 
{Напишите код функции InvertDigits ниже}
 
 
 
Var
    Left, Right: LongInt;
    Count      : word;
    i          : LongInt;
Begin
    Write('Введите левую границу интервала: ');
    Read(Left);
    Write('Введите правую границу интервала: ');
    Read(Right);
    Count:=0;
    For i:=Left to Right do
        If i=InvertDigits(i) Then Count:=Count+1;
    Writeln('На интервале от ', Left,' до ', Right,
 ' число перевертышей равно ', Count);
end.

function InvertDigits(k:longint):longint;
var m,n:longint;
    c:byte;
begin
n:=k;
m:=0;
while n>0 do
 begin
  c:=n mod 10;
  m:=m*10+c;
  n:=n div 10;
 end;
InvertDigits:=m
end;
var  Left, Right: LongInt;
    Count      : word;
    i          : LongInt;
begin
repeat
write('Введите левую границу интервала >0: ');
readln(Left);
until Left>0;
repeat
write('Введите правую границу интервала >',Left,': ');
readln(Right);
until Right>Left;
Count:=0;
for i:=Left to Right do
if i=InvertDigits(i) Then Count:=Count+1;
writeln('На интервале от ', Left,' до ', Right,' число перевертышей равно ', Count);
readln
end.